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THE KEYPUNCH AND DATA PROCESSING COURSES. / 



Introduction 



The information cbnta.|ped hereinUs a report on the Data 
Processing Program of the 1970 Project Soiil, as well as a guide 
for the development of curricixla for similar programs on a national 
scale. It consists of two sections: V. Keypunch Ope|*a^ons^ 2, Fun-* 
damentals of Business Data Processing an^ COBOL l^jigr^Jtu^iing* 
It contains a detailed description of the courses ta-jigii^^ in addition to 
teaching methods and techniqiies used. 



A total of fifty high school jxmiors an^Vs^enior& with non- 
scientific backgrounds participated in^e Data Processing Program. 
In genersil terms, the primary goal was to provide the^'fr^oiing per- 
sons sound basic training in commercial data grocessing. The train- 
ing, practical, in iis form, wa's designed to expand the horizons of the 
students in the educational and occupational' fri^e^ of reference, and 
""Sfaei^by, to motivate their interest in continuing education. Secondary 
goals were to prepare these yoiing persions fo»: employment in the are^' 
of keypunch operations and dat^i processing, an^ to-establish ajid main- • 
tain a file of competBi^t data processiiig personnel for r^crmtment by 
fitms in the Los Angeles area which have indicate^d /an interest in our 
tramed people • ^ 



The keypunch course accommodated ten students and lasted 
four weeks. Two hours per day were'devbted to lecture and two to 
laboratory work* - ^ , 



JS^tSrty students in groups of twenty took part in the six-week 
business data, proces'sing course. The first two weeks were spent on 
thje fundamentals of business data proces^sing, and the remaining fbur 
were devoted -to an intensive course infcbBOIl programming utilizing' 
the Honeywell H-ZOQ Computer System. Again, two hours were spent 
in lecture and two in laboratory; at least one of the .latter involved 
harfds -on experience on the hardware . ' . • 
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It is a pleasure to acknowledge the following per^ns for. 
their valuable contributions in the development of this segment of 
Project Soul: Noirman Gale, Jules King, John Kelder, Richard 
Avery, , ^ 

2 ^ > Section I - Keypunch Operation • , 

a. Course Diescription and Obiectives 

This course has been designed to acquaint the^Sttiident 
with the various processes of Key Punching in a business environ- 
ment, ' / 

Prerequisite: That student be able to type at a speed of 
40 words per minute, * . " 



Upon successfixl completion of this four-week course ^ the 
sti/dent will be able to; 

1 • State from memory at least six functions which a 
p\mched hole in a card can perform, 

2; ' Describe correctly a \init record card in terms of 
^ the number of col\imnsi and the narhes of the various 

punch positions, 

^ ■ » 

3, Define a card field and calculate the number of col- 
umns reqii^red to punch a given field, 

4, When questioned, locate and explain the use of: 

. J Main Line Switch Card Hopper ,i 

Punching Station Reading Station 

Card. Stacker Back Space Key 

Keyboard Chip Box 
Program Control ^Unit 

5, Set up a program control card, using the automatic 

fimctions available with this machine , 

« 

6, Correct and manually duplicate error cards. 



7 • Define the following program code 9^; 

Automatic Duplication - 
Autdmatic Skip ... /J 

. ' ^pha Shift ^ 
Field Definition"^ * 

8. State the purpose of the following: 

^ Program Drum 

Column Indicator ' 
^Prograih Card < 

9* Rempve* and replace a program ci 

10, Correctly operate the card punish {tnder progr^jn 
contrt)!. • j^-^'^' * > 




Text: International Business Machines Reference Manual 
024-026 Keypunch, 

b. Course Outline ^ \ i 

1. Class Opening - " 

[ II. Principles of Unit Record Accotinfcing 

III. ThQ Unit Record Card 

IV. Features of the Punched Card W 
V. Manual Punching Exercises 

VI. Program Control Unit' 

VII. Additional Features of the Card Punch 

VIII. Verifying Procedui*es 

IX. Examination ^ 



c. Teaching Guide '\ ^ 

"\ . LESSON ANALYSIS SHEET 

LESSON TITLE : The Recor<Ung of Information. , 

LESSON OBJECTIVES : Discuss principle of the recording function through 
; ■ . .. the use of the keypunch machine 

, REFERENCE : 3M-pATA PROCESSING- -Volumes 1, 2, and 3. 

MATERIALS: Chalk; ^ ' . 

Blackboard • . » 

Overhead foii§ , 

MOTIVATIONS: Student will be required to use keypunch machine in future 
' data processing classes and possibly in employment. 

PRESENTATION ITEM^ ' APPLICATiaN AND FEEDBACK 
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Segment Objectives: . 

Technical operations and control of 
the keypunch machine. 

« . , ■ • ^ 

L Processing Cycle. 

^ 1. Cycle carried out by using the 
various t3^es of machines. 
/ 

2. 5 principal processing steps - 
-x- used in a punched card installa- 
\ tion. \ 
A. Recording 
^. B. Classifying 

C. Calculating 

D. Summarizing 

E. Reporting 

Vii Recording , > 

,1. .The recording function is per- 
formed by utilizing a machine 
called a keypunch. 

2. Keypunch 
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Presentation items 



APPLICATION AND FEECfeACaC 



A, Most widely use'd method f 
of recording data. - ^ 1. 

^ B. ibint out similarities to 
, keypuni::h and typewriter. 

3. C>qmponents of the keypunch. 

. ■ • * ■ ' . " V" ■ ■ ' ■ 

- A. Keyboard 

(I^. 48 awad) 

B. , pai^d hopper ' 2. 

500 cards . ' 

iing station . 
12 Vertical ibsition Punch 3.- 
Dies ^ . 

D1 Reading station 

•^12 Brushes t 



What are the similarities and 
differences between the type- 
writer and a keypunch? 




What is the function of the card 
hopper? ^ ■ 



What is the difference between a 
reading station and a punching 
station? 



E. . Card stacker 
500 cards 



\ 



F. Column indicator 

Next column to be , 
punched. 

G. Program Control establishes 
automatic control of basic 

, . operation on the Keypunch. ' 

a. Automatic skip 

b. Auto EXjpli cation 

c. Shifting of punchipg 
mode 

H. Four basic punches for 
prog control., 

a. ' 12 Field def., 

b. 11 Auto skip , ' 



4. What does the "column indicator* 
indicate? ' * 



C 
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APPLICATION AND FEEDBACK 



c. 0 Auto Dup. 

d. 1 Alpha shift 

e. used separately or in 
combination 

Program card 

a. Regular card 

b. Star wheels ' 



5^ . What is a program card? 



III. Accuracy in recording, 

1. KeypuYich slow and costly 

2. Of utmost importance that ^ 
cards are punched correctly 

IV. Verifier 

1. Looks like Keypunch 

2. Operator re-keys frorii same 
source document. 

3^ Machine uses sense pins 

t 

4. Error indicated on the error 
column 3 tries. 
U Notch 

* 

. 5, Card correct notch at upper 
right hand corner 



6/ What is the difference between 
the keypunch and the verifier? 



Why is it important to as- 
' certain the accuracy of data 
processing at the keypunch 
fitage"? 



EVALUATION 

Keypunch program 
card assignment 



in 



3_j Section II - Fundamentals of Business Data Processing and 

COBOIj Programming 

a. Course Description . 

*This course will be divided into t^o parts. The first of 
which will cover the fxmdamentals of Business Data processings In 
Part One the student will learn the basic operation of the following 
unit record machines: IBM keypunch*, IBM interpreter, and IBM 
^card sorter • The second part will utili2se the most frequently used 
procedural language for Business Application^COBOLi^ COBOJL is a 
"Near-English" language .which provides for thorough documen^a^ 
tion of the program and enables programmers to be able to prpgram 
on all major manufacturers* equipment with a minimum of adjust-* 
ment. Business appl^ation will be analyzed, flowcharted coded, 
and debugged using the computer. 

Prerequisite; Satisfactory completion of progran^er' 
aptitude test. , 

b. Course Obiectives 

1. Introduce the stucients^to the fimdamentals of Data 
Processing and its application in business today. 

2. Discuss principles of the recording fimction through 
the use of the keypunch machine . 

3^ Discuss the principles of sorting in both numeric and 
alphabetic sequence. 

4. To introduce the student to the operation and control 
panel wiring of the card interpreter. 

5. Discuss and use the current methods of computer 
problem flowcharting. 

6. To develop the stude^^s aJ|iUty to work effectively 
with any modern third generation corpputer system. 



. 7; ^ To develop in the s^dent confidence ,th?tt can woxik 
: \*and tdm^nunif ate in any comJ)uter ehYironment by 
applying thfe general principled of programming to 
the specific language that he may encounter. / 

To provide the cHall^iMige of applying and extdndjjig the 
student* s ability in problem solving situations . 

"... » , 

9# , To further extend the student's knowledge of current 
Data PrcScessing Techniques. 

„ •' 'i . ■ . " ■ - • ■ ■ . 

^ ' ■ , ■' ■ ■ . . * ; .. ■ 

, Course Outline . . ^ - . 

Part Qne . , . 

1. Class Opening ^ . ^ . ' ^ \ 

2. Ftmdamentals of Data Processing 

3. The UAit Record C.£^rd " . 

' 4. The C a 3?d Sorter . ' • 

5. The Interpreter ' ^ 

Part Two - • ' ' ' • , 

A. .Electronic Data Processing and COBOL 

1, Data Characteristics and Orgatnizatidn . ' 

2, What is a Procedure? 

3, Wifet is. COBOL? 

if 

B. The Procedure Division ^ 

1. The Parts of a COBOL Source Program 

2. Basic Procedure Division Elements 

3. The Move, Add, Subtract, Multiply,* and 
Divide Verbs * 

4. The GoN^O,. Perform and Stop Verb 
5^ The IF 'statement 

6. input and Output 

C. The Data Division 

1. The File Description , 

2. Level Structure 

3. Record Description 



/ . 4. ' The* Picture Clause 
• ^ 5. _Coadition Name* Value Entries ' • * 

J . ^ . The. 'Working Storage section' 

. D, - The E^yironineat Divisipii *, * . , ^ /- 

. *E, The Identification Division ' . ' - . * • 

■ \ \ ■ : ■ ■ • '. •«■/.•: 

d . Me'thbds of ^nstructio^l and, Evafuation . , • . . • . . 

' > . . ...... 

Text and Reiferen'ces: v*- - . 
' ' "I. Texti Spitzbarih, Laurel M. ^ Basics COBOL. ' 

Programming . Menlo Park . California, 
. ^ ^ A^dison-Wesley' Publishing Co. ' 

- 2, References: ^ International Business Machine: 

\' , ^ 026-024 keypunch 

029 Keypunch ^ 

557 . * Interpreter 

083 Card Sorter 

*• • ■ 

Methods of Instructions ^ ^ 

1 ; Instructor Explanation an^ Demonstration of 
Course fcontent 

2. Use of Overheads and Computer Ldstings to Pro 
vide Actual Models of Language and Techniques 
. Discus sed- 

■# • ' 

.3.^ Have Students Write Programs thai Utilize AH 
Aspects of Course 

4. ' Ciass^ Discussion on Projects and Assignments 



Methods of Eva],uation; 

1 . Q^guiar Attendance 

2. Laboratory Projects' 



3. Formal Testing 



/ 
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e. ; Teaching Guide , • . 

, [ 4 " ' • . 

■ ' ■ ' LE^ON ANALYSIS- SHEjETi, • \ * " 

' . • ■• ■ * • ■ ■ ^ . - , : ■ ] • •■ 

• LBSSON TITLE; Introdactioi> to the Fundamentafs of Data Processing 

' • LESSON OBJECTIVES: To introduce the students to the fundamentals of data 
, • processing and its applications in business today, 

REFERENCE : 3M DATA PROCESS INQ Volumesl', 2, and 3. ' 

MATERIALS : ' Chalk ,' _ ' / ' * ' 

^ ' . Blackboard *. ' ^ . ^ * ' 

A . ' . . Overhead Foils ' ^ ^ 

* MOTIVATIONS ; Indicate to the students that this is a new and growing field 

^ 'with many opportunities. - ^ 

PRESENTATION ITEMS I APPLICATIQI^ AND FEEDBACK 



Segment Objectives: y * • 

Discuss Data Processing course 
taught at Cerritos College. 

I. Why should data processing be^ r :f« 
field of study? . ■ " . 

1. Complexity of business organ- 
ization : ■ . ■ ■ ' 

. A. Early barter to cor- • . ^ 
^ porate form. • 
B. ' Tribe leadership , ; ' • * , 

Gigantic government 

2. Riysical Factors: . 

A. Growth of customer force 

B. Credit as a way of life 

3. Cost Factors: < 
\ A. Cost of clerical help 

^ B. Cost of inefficiency 

C. Cost of not planning - 

4. Labor factor: 



PRESENTATION 'ITEMS ^ APPLIGATiON AND FEEDBACK 



Increase io *Vvhite collar" 
^ B. mefnciency m added per- , . 

sonne^' ^ 
- C. Job enlargement. . " 


•:■ •X- 


■ , . ^ , 

5. Speed factorr • . ' 

A. ' Currency of information " 

B. ' Best information is- . ' • 

* ' ' - 




n. What are the fields of Data Pro- - , 
ces.sing? ' ' 


. *' * ■ * 

* 


1, Manual: ' • • 

A. Office Machines ' . 
* B. Keysort systems 
C. • Microfilm 




' A. Standard size record^ 
• B. Automatic mampulation 


0 

< 


• 

3. • Electronic Data Processing 

A* Computer System ' j * ' 
, " B< ; Applications 





lyALUATiON ; • . , y 



None 



• ■ \ 



. /Cloy 

Toblet 



HIGHLIGHTS OF 

COMPUTATION HISTORY 

■5* . . ' ■• 




Adding 
Machine 
1642 Pascal 



Babbage , 


Boolean 


1834 


sAigebra 




1854 



Liebnitz, 


1694 


Thomas, 


1829- 


Bpldwin, 


1872 


Felt, 


1887 


BurrQughs 


and 


Monroe , 


1914 



I 



1 



Mark I 




Eniac 




Edvac 


1944 




1943 




i9"4,3 



r 



Von Neuman 
Stored 
Program 
946v 



]K\C 




Hollerith 




Powers 


1 ■ 


1 


Tab 

Machine 
Company 
1896 , 




Accounting 

Tab 

Machine ' 
Company 




- 


International 
Time 

Recbrdirig 
and ^ Dayton 
Scale 




Remington 

Rand, 

1911 




1 ■ 


Sperry 
Rand 


Name 

Changed to 
IBM 1924 • 
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LESSON ANALYSIS SHEET. 



LESvSON TITLJ 



)llerith Coding System Unit Record Qard. 



LfesON OBjpECTiyES : ' Understand coding system devised by T^.' Her man - 
^ ' / ■ ■ Hollerith and its applic^j^n in^modero business, data 

S . / processing. . . * * . . . 

^R^FE^fiN^/ 3 M Data Prbee^sitg 7- Volumerl, 2,. aiid 3. ' * . _ 

MATERIAI.S ; Qialk ' . • • ' " ■ ' . 

Blackboard ' ' . ' .' " / 

r / Overhead foils * ' . . 

MOTIVATIONS : Necessity of understan'ding the Hollerith toding System. - 

/. ■ ■ . . : , - . . . . ■ ■ 

TOESENTATION ITBJ^ , - j\ API^^ICATIDN AND FEEDBACK 



Sksgment Objective: « . 

Coding system, method of recording 
and unit record concept. 

L . Unit Record Card 

1. Holds one -unit of information 

2. Must be standard size 
(machine) / 

II. Method of recording data on 
punched card. 

♦ 

1. Data is transcribed from a 
source document to the unit 
record with the keypunch. 

.2. Unit record becomes per ma ^ 
nenc storage. 

* • 

3. Unit card can be duplicated 
. ' when d^ired or necessary. 



,i. 



2. 



Why is it necessary to have a 
standard punched card? 



What is the role of tlie punched 
card in the recording stage? 



3. What is ^e Hollerith Code? 



III. Source of eards. 



. PRESENTATION ITE 



APPLICATION AND FEEDBACK 



2. N/fejor QomiJany 
IBKI (80) 
. Remington Rand (90) 

IV. 80, Column Card Hollerith Code 

1. 80 vertical spaces called . 
columns O 

2. Columns are numbered from 
left to right 1-80 

3. Each column can only coptain 
"i" cl;aracter . 



V. Punciiing Positions ' \. 

i 

1. The 80 column unit record card 
is divided into two punching 
positions. 

A. ZONE 

B. DIGIT - 

« 

VI. Zone .fbsition 

1. 3 horizontal rows at the top of 
the card. 

2. *Two of which are used for zone 

punching only. 

3. One IS a combination punch. 
Vn. Digit Position 

- 1. 10 horizontal rows 
^ 2. Represent position 0-- 9 
VIII. Edge and Face of card. 



I 



4. What are the two punching posi- 
' tions of the 80 column card? 



. ♦ 



PRESENTATION ITEMS -* . ... APPLICATION AND FEEDBACK 

. • , — . - — — 

Sample handout. - . - 5; What is meant by 'lace down 

- \ V . / 9-edge first'? • ' - 

iV Nine edge ' ' a ' 

' 2. .I2fedge • '-^/Ah ^-^ 

3., Face • • ; . ■; ''V^fi^ I 

■ ■ ^ < , I, ■ . ■ ■ 

IX. Numeric recording of, information., 
1. One hole per column 

4Q875 require 5 columns 

X. Alphabetic recording V ' 

. *- ... 

1. Two iioles per column ' ^ 

' ■ . ■ s \ 

2. ZONE AND DIGIT SYSTEM. "> 4 . 

• A - I ■ : i'.'' 

• J - R ' ; • 
S ' Z ' ' 

XL Card Layout 



* r f- 



1. Cards must have predeter- 
mined format. 

2. Held A column .or columns ^et 
aside for specific information. 

3. Field max. 80, min. 1 

4. Numeric Field must fill with' 
Zeros. 

5. Alpha field ' 

6. Fixed info left • 

7. Variable info right * 
XIL Card Design . , 



6.. What is a field? 



PREJ?ENTATiON ITEMS 
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APa-ICATION AND FEEDBACK 



' 1. Uniform fields v 

* - , * ' 7. ' How many different ways can ar 

' 2v Identifying ma color stripe^ , ^ . » gard b6 identified? 



XIII. Control fiel(5s- 
• ' ' X-row Aised for control 



8. What is a control field iised 
for? . ' 



EVALUATION 

Review Question 
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LESSQK ANALYSIS SHEET 



LESSON TITLE; Classifying information 

LESSON OBJECTIVE : \ T^ discuss principle* of sorting of data in iKith 

'I numeric or alphabetic sequeace^Aising the'82 Sorter, 

REFERSiNCE: .SM-DATA-PROCESSINGi Volumesl,2,and 3. ' ; . 



> MATERIAL: Chalk " ' i . ^ - *^ 

' ^ Black^a'rd ' ".. , * 

O^erheadi f ojlls . ' -» _ / 

MOTIVATION*; Eniph|asize the importance of the d^ssifying process 

within data processing installations. • 

PRESENTATION ITEMS APPLICATION AN? FEEDBACK 

Segment Objectives: 



To introduce fltuyeiit to the.func- 
mentals of classification of data . 
• using. porting chines^ 

Classifying Infojfmation 
I, Classifying 

' i. Process in which. like trans- 
actions are grouped, oi 
arranged together, in either 
alphabetic or nxuneric, 

n. Three basic types of classification 
1. Sorting in sequence 
Z. Selecting 
3; Grouping 

# . 

lU^ Sequence 

1, Both numeric and alphabetic . 

IV. Selecting 



5 
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PICESENTATION ITEMS ''Z 



APPLJCATIOJv? AND FEEDBACK 



Operation which iavfolves pulling 
certain cards from.a file without 
dishirbing the sequence of the 
remainder of the |ije^ . . 



.i,^ What is an example of selec- 
ting? . 



Grouping 

Sorting l?y comrnon characteristics.. 

' 1. By branch 

2. Jl-egional office ^ 

VI. The Sorter 

^ , . 

1, Fastest machine in punched 
card data processing installa- 

:ion. 

2^ 13 pocket 

1. will accept any possible 
punc^ & blank,-^ 

3. Only one brush that is positioned 
over coluinn being read, ^ 



yil, Nxxmeric Sorting 

1. Low order position to high order 
position ^ 



VIII. Alphabetic sorting 

1. L»ow order to high order position 

E. Two pass on'each column ^ 
3, Numeric 1st and Zone 2nd 

IX. Compilation of sort tinae 



2. 



What is an example of 
Gro^pia^.7 



3. Define "Reverse digit method" 
». of sojrting 



V. 



4, Why is it important to compute 
sort time?' 



; ERIC 
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APPLICATION AND FEEDBACK 



• * Vq^^^:^^ Numeric Colunyis, 
Speed or Sorter 



+ 25% handling 
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LESSON ANALYSIS SHEET 



T.KSSON TITLE ; Introduction to the I^M 548 Interpreter. 

LESSON OBJECTIVES ; To introduce the student to the operation and 

control panel wiring of the 548 interpreter 

itEFERENCES Internatioiial Business Machines Reference Manual 

548 Interpreter 



MATERIALS ; Projector FbUs 548 Machine . 

. . ' . Card Path 

v Control Section 

Type Sar Design 
Control Panel Functions 
Wiring Diagram Sheet 

MOTIVATION The student will be introduced to the wiring concept using 

the 548 in an attempt to eliminate any confusion aa to what 
the control panel accomplishes > 



PRESENTATION ITEMS 



APPLICATION AND FEEDBACK 



Segment Objectives 

To introduce the machine functions 
of the 548 



1. Interpreter will print information 
on same card 

a) increases value of card 

b) easy to read document 

' 2. Useful for file maintenance 
ft) proofre^cKng . 
b) prepunched tub file 

3. Speed of interpreter is 60 cards 
• per minute (Foil#i) 



1, Why do we interpret cards? 

2 , Why would it be helpful in 
maintaining a file? 

3, How long would it take to 
■f; interpret 8 000 cards? 
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APPLICATION ANP FSIEDBACK 



Segment ObjectiLves: '*> 

To introduce the operfitlng 
features of the 548 

f 

1. Main-Iiae switch (Foil #2) 

2. Start and stop keys.' V • 

♦ 

3 . Hoppe r ^ " ' * . 

* * - * • 

,a) cards feed fac^up« ,12 edge 

b) I feed from back file. 

4. Stacker, , 

5. Path of card through machine. 

• (Foil #3) 
— „_ 



Segment Objectives: 

Pisjc:u8S printing characteristic s\ 

1« Two lines of printing possible. 

2. Printing position (Foil #2) . 

3. Sixty type bars. {Foil #4). 

4. Control panel functions. (Foil #%) 

5. -X brushes, 

a) reason for them. 

b) how to set them, 

..^ ' ^ ^ ' 

/ 



1. Is warm-up required ^ 



Z. How long must the start key 
be depressed? . 

3, How* niany cards will the O 
hopper hold? 

4« What are the problem^ in feed* 
ing tfards face up? ^ 

5. How many 'read stations. on tke 
548? ^ . • 



1. , Where the, two lines 

printed? * x 

2. Where is the print kno^ 
located?^ 

3. How do vfe interpret 80 
columns with only 60 
ty^e bars? * 

4. Why cio we have a control 
panel? 

5. How many X brushes a 
standard? 



Segment Objectives: 

m 

To introduce the control panel and 
the principles of wiring. 



1. Control panel wiring. 



1. How many reading brushes are 
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APPLICATION AND FEEDBACK 


a) reading brushes exit hubs 


there on the 548? , ' ' ' 


hi tvDeb^LTS entry hubs. 




^ cX common Hubs. . * " 


2, Explain the term Co^unon 

■ Hubs, V - ^ • ' 


2, Wiring to print iix tw0 places. . 


\ ' , 3. What is offset wiring? 


3. ■ X eliminators. (Foil #6) 


4. How many X eliminators 
are ^standard oi^ the 548? 


t ,- 


D, iiow aoes.tne interpreter 
differ from most IBM 
machines? . ' . ; 


• 

* ^ 

^ ' * 

; 

t 

d 

* • ' 


r 

« 

» ■ 

» 

* 



■ V 

} 



• 
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LESSON ANALYSIS 



L'SSSON TITLE ; .Block Diag ramming 

LESSON OBJECTIVE ; Discuss and use current methods of Computer Block 
. \ ' Diagramming* 



REFERENCE: 



MATERIALS: 



3M 



-Data Probe^^smg- Volumesl, 2, 3, and illustrations 



Blackboard , 
Chalk 

Overhead foils ^ 
Handout materials. 



MOTIVATION: A program is a part of a problem solving cycle which, when 

done carefully, s^ves time. 



PRESENTATION ITEMS 



APPLICATION AND FEEDBACK 



Segment Objective: 

To introduce student to scientific 
method of problem solving. 



Electronic Computer is dependent 
on man. 

1. Will aidjmau in solving problem. 

2. It is only as useful as the Prograra^- 



1. What is involved in data 
organization? 



that direct its work. 



Preparation and planning. 

1. Overall understanding of problem. ; 

/ 

2. Prope;^. planning before implemented. 



III. Flowchart. Definition: A Flowchart is 
a-ehart depicting the flow of data and 
operations in a D, P. system. 



2. Why is the problem- 
definition stage' in^^rtant 
in problem solving? 



PRESENTATION ITEMS 



APPUCATIQN AND EEEDiiACK 



IV. Elements of th^ flowchart. 
1, Probiena/solvMig process. 

, 2. 5 parts. 

* 1. Define the problem, 
. 2. Organize the require data. 

3. Devising a procedure for 
a desired solution; 

4. Testing procedure 

5. Carrying out the program 



3.« What is a block diagram? 



I, 



4. ' What is a flowchart? 



y/ Define Problenr. 

^1. Determine what input- output 

a. Mention form layout. 5, 

b. What info in data cards. 
, c. Source documents. 

2. Must be sufficient amount oi 
! time allowed. 

1. fWell organized program 

2. ^ a^j^rt and- sloppy program 

3. Awareness of the limitations 

^ of both the equipment and per- 6. 
sonnel. 

1/ Computer size, etc. 

2. Advance- Trainee Programer 



What is branching? When and 
why is it used in a block 
diagram? 



What is involved in the 
debugging stage? 



VI. Data Organization. 

1. Arrangement of component parts. 

2. Logical arrangethent of data from 
various areas. 



7, What is the difference 

between a logic error and 
a clerical error? 



VII. Development Stage (Devise Procedure) 

1. 'Devising procedure - based and data 
organization. 

2. All necessary steps involved in reporting, 

. . i . 

VIII. Block diagram. 



3S 
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l«i Visual Aid, 

2. ; # of Block containing ins true 

tion. 

3. A block diagram is esifiential 
in that it inakes it possible to 
write the program in an orderly- 
manner. 

4. Example of Block diagram: 

a 

'STAND 
UP 



SPEAK 
^P 



SHUT 
UP 



5* Detailed Flow-chart. 

Reference page 220. 
Discuss how to get up in the 
morning. 

. . ■ \. - 

IX, Symbols, 

1. Symbols vary according to ^ 
manufacture. 



2^ 
3. 



Represent d^erent ideas. 
Direction of flow 



4, • Input- Output Symbol 



Read 
Card 
Input 



Punch 

qard 

Output 
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APPUCATIpK AND. FEEDBACK 



5.' Processing Symbol,. 



Add, Subtract, Move, etc, 

6. Reference figure 18.5 p^ge 224 
and discuss LOOP. 

7. Decision Symbol. 



Alteirnative operation 

EQUAL - UNEQUAL 
HIGH, LOW 

8. Branching 

Detour around certain 
instructions reference fig. 
18.7, page 227 

X, General Diagraming Hints. 

1. Step begin at the top and come 
down and toward the right. 
' 2. Consistent use of symbols. . 
3. Minimize and clarify writing. 

« 

XI, Coding stage 

U After diagram is debugged 
Z. Translation of flowchart into 
the language of the Computer 
1. Assembly, computer, 
machine language. 

XII, Debugging 

1. To locate and correct errors 
in program, 

2. To main type of errors 

!• Logic errors - Decision: 



2n 
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2. Cleric errors - Misspell 

Print . PRRNT . ■ * ' / . . 

XII. (Testing stage & Carrying Out 
Program) 
1. Run test data. 



* 
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LESSON ANALYSIS SHEET 

\ . ^ ' . ■ ■ ■ 

LESSON TITLE ; Data Organization 

' LESSON OBJECTIVE ; To Discuss the Organization of Data 

^ REFERENCE ; A Guide to COBOL Programming: Daniel D. 

McCracken . 



MOTIVATION ; Emphasize the Importance of Data Organization 

PRESENTATION T APPLICATION AND FEEDBACK 

DATA CHARACTERISTICS . / 

/ ■ ■ ' 

1, Data refers to any information that can exist within a computer 
system, 

2. Types of Data What is a master-file? > 

a. source ,' . 

b. master-file f 

c. sorted ! , 

d. edited i What does editing mean? 

i . ' . ' 

3. The most elementary unit of data is a character. 
Which may be a numeric or al^phabetic character. 

4, Data- Items is composed of one or more characters. 

'5. Data Name is a symbol What is the difference 

• by which a d^ata item is • between a data name and 

referred to. a data item? 

6. A record is compoised of " Y 
' data items. These items 

are related. 

Example ; 

Inventory File (record) 
Part nxxmber 1 
. Quantity on Hand > Data Items 
Quantity or Order j 

7. A File consist! of records. 

a , Input files 
^..]^. Output files 



Evaluation: 
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LESSON TITLE: 



Whait is a Procedure 



LESSON OBJECTIVE; To Pefine a Procedvre 



REFERENCE: 



MOTIVATION: 



A;Qmde to COBOL Prpgramming: Daniel 
D'i, '^ix;Cracken. 

To show the student the importance of 
•Procedures, 



PRESENTATION 



APPLICATION AND FEEDBACK 



SEGEMENT OBJECTIVE y 

^To learn how t0 integrate the needs 
of the business, thp characteristics of 
the data, and the powers and limitation 

* of computers. ' ' 

\ '. ' • .... , 

1, Procedures must1?e general so they will 
work correctly w;J;h data of like type. ' 



2. Computer cannot* exercise judgement 
unless it has been provided with explicit 
directions for making a decision. 
/ 



3. The computer must be told how to 
know when it is finished. , 

4. Describe the tasks and consider the 
general approach t<f the computer 
procedure for carrying out the desired 
processing. 



EVALUATION 

Oral Discussion. 
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LESSON TITLfe ; What is COBOL? . . "... 

LESSON OBJECTIVE^ To Discuss the COBOL Compiler Lang^iage. 

REFERENCE' : A Guide to COBOL Prog rainming: Daniel D. McCracken 

MOTIVATION; The student will understand the elentents of the COBOL . 
* language. 



PRESENTATION 



APPLICATION AND FEEDBACK 



Segment Objective 

To discuss^the COBOL 
Langjjage..vt^hich grew 
oUt^l the requirement 
£or^ language that would 
bV compatible with various 
computer systems. 



i. A computer cannot follow a procedure 
just as it stands; there must be an 
intermediate translation 
step first 



What is a translation step? 



2* To accomplish tRis translation 
the COBOL language is divided 
into a number of divisions. 



A. Procedure Division ^ 

B. Environment Division 

C. Identification Division 

D. Data Division 



3. These, divisions combined represent a 
COBOL program the translation of this 
program is called a compilation. 



f 3i 



4. , The output from a COBOL compilation is 

known as the object program and is in a 
usable form for the computer. 
i 

5. The COBOL program after compilation 
is then ready to run data for report 
preparation. 

? ' — \ — ^ — ^ \ 

Evaluation 

Oral Discus sion« 
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LESSON TITLE; Parts of a, COBOL source program 

LESSON OBJECTIVE; To discuss and use the various elements of 

a COBOL program. 

REFERENCE; A Giiide to COBOL Programming: Daniel D. McCrackeii 

MOTIVIATION: To assist student understanding of the COBOL language. 



PRESENTATION 



APPLICATION AND FEEDBACK 



1. Identification Division is a new 
line .to ideniify the program, the 
author I and data- written. 

Identification Division. 
Program-ID. Demo. 
Author. H. White. 

2. Environment Division specifies the 

ft 

computer to be used, both for the 
compilation and for the object program; 
the two ar-e ordinarily the sam»e. 



^ Environment Division. 

. Configuration Section, 
^ Source- Computer. H-2pO-Special 

Object- Computer. H-200, Supervisor, 
No Segmentation. * 

3. Data Divi&ion includes the files, records, and data 

items that are to be processed or produced as^results. 

Data Division 
Work-Storage Section.- 

01 Name- Record-File. r 

02 Name-In Picture x(EO). 
02 Address-In Picture x(20). 
02 City-In Picture x(2'0). 
02 Zip-In Picture 9(s). 
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4. Procedure Division specifies the steps 
the programmer wishes the computer to 
carry out in processing the data. 

Procedure Division. 
Display C4C. 

Go-File • . 

Accept Name- Record-File, 
Display Name- Record-File. 



Evaluation 



Oral Discussion 
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'PROJECT SOUL" 1970 

■i 



Principal Investigators 

, Richard Bellman • 

Project Director: 

. Carlos Ford-Liivene 

Technical Administrators 

M • Virginia ^oitl 



•Keypunch Operator 
Course 



Instructors ; 

1 . John Keider 







Secretary- Placement Aide: 
Betsy Gloster * 




« 


Data Processing Curric^liim 
Coordinator: James Woolever 



Business* Data 
Processing Course 



Instructors ; 
1. N. Gale 
f 2 . J . King 



Lab. Assistant ; 
1 . Richard Avery 
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4 ■ . • 

COURSE 


DATE 


CLASS * 
SIZE 


■/TIME 

• 


LPCATION 


INSTRUCTOR 


KEYPUNCH 
DISTRIBUTION 


Keypusch 


yune 29- 
July 24 


10 


'lO-12 
'l-3 


OHj: 134 


-^r — - 

JohiiKelder 


OHE 132-5^5 . 


^ Busiiiess Data 
Processing, 
Section A 


June 29" 
• August 7 

n ■ 


20 


10-12 Lab. 
1-3 Lect. 


' CSL 113 
- CSL 129 


Norman-Galte 
Avery (Lab. 
Assistant) 


CSL-5kps 


Business Data 
Processing, 
Section B- 


June 29- 
August 7 


20 


10-12 Lect. 
1-3 Lab. 


CSL 129 
CSL 113 


Jules King 
R. Avery (Lab, 
Assistant) ^ 


CSL-5kps . 



-\ f 



' ^ OHE denotes Olin Hall of Engineering ; 

CSL denotes Computer Science Laboratory 

J : - - 
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INSTRUCTIONS FOR PART I 

In Part I you will be giy.©a some problems like those on this page. 
The letters'in ieach series follow a Certain rxile. For each series 
of letters? you are to find the correct ruie and complete the series « 
One of the letters at the right side of the page is the correct answer 
Look at the example below. • 



W. - ^bababab 



(1) iZ) (3) (4) (5J 
a b c d e 



For this problem^ the series goes: ab ab ab ab 

The next letter in the series is a. Choice 1 is the correct answer. 



X. aabbccdd 



(1) (2) (3) (4) (5) 
a b c d e 



In Example X above, the series goes like this: aa bb cc dd. Thq 
next letter in the series is e. Choice 5 is the correct answer. - 



Now^o Example Y below. ^ 

{i} {d.) {^) p) 

Y. cadaeafa 



(1) (2) (3) (4) (5) 

d e f g* . h 



In Example Y, the series goes: ca da ea fa. Therefore, the correct 
answer is g. Choice 4. 



Now do Example Z . 



4 ^ 

,Z • axbyaxbyaxb 



(1) (2) (3} (4) (5) 

a, b c 5t ^ y 



In Example Z , the series goes like this: axby axby axb , Therefore , 
the correct answer is Chojce 5. * 

In the problems on the following page, yott are to select the correct 
letter on the right-hand side the page which belongs next in the 
series. Indicate the correct answeKon the answer sheet. * 



1 



C-2 



PART I 



c d e ■ X y 2 f g h x y z 



(1) (2) (3^ (4) p) 
i j k 1 m 



. 2. 



3. 



vt s r t s r t s 



^^abc'cdeff g 



(1) (2) (3) (4) (5) 
r s t V w 



(1) (2) (3) (4) (5) 
e f g h i 



4. 



I, n • m n k ,^ 1 o p o ' p k 1 



(!) (2) (3) (4) (5) 
k o p q r 



^ ,b c i j d e f i > 



(1) (2) (3) (4) (5) 
g h i j k 



6. 



a i be i d.ef 



(1) (2) (3) (4) (5) 
e f g h i 



7. 



g 



b h 



.(1) (2) (3) (4) (5) 
d f g . b i 



8. 



9. 



a e 



d h g 



k s j t i u h 



(1) (2) (3) -{4) (5) 
h i j k 1 



(1) (2) (3) (4) (5) 
V w X y z 



•10. 



n j f m i e 1 



(1) (2) (3) (4) (5) 
d K i j m 
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INSTRUCTIONS FOR PART II 

In Part II you will be given some problems like thope on this page. 
Each row is a problem. Each ^ow consists of four figures on the 
left-hand side of the page and five figures on the right-hand* side of 
the page* The four figures on the left make a series. You are to 
find out which one of the figures on the right-hand side would be the 
next or the fifth one in the series. Now look at Example X, 

Example ^ 



X 



In Example X there is a clockwise movement of the striped square: 
upper right, lower right, lower left, upper left. The next or fiftK^ 
position in this clockwise movement would thus be upper right, and 
so Choice ^ is the correct ans^Yer. 

Now look at Example ¥• 



^ In the series of figures on. the left, there is one more line 'in each 
box and these lines inci^ase in length. Now look at the five choices 
on the right-hand side of the page and determine the correct answer 

You should have selected Choice 5 which has five lines, one more 
than the last box on the left with the fifth line :slightly longer than 
the last line in Box 4, . 
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• 








1 2.3 4 . ,5 


/ 


A 


A/. 


AA 




W 


\AA 


N 


AA/ 


AA' 



^ 1 



2 



13. 



14, 



15. 



16. 
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INSTRUCTIONS FOR , PART 

' ■ • ' . 

In Part III you will be giv^ some problems in arithmetical reasoning. 
After each problem the^^e are five answers » but only oii^ of them is the 
correct' answer. You- are to solve each problem and indicate the correct 
answer on the answer sheet. The following problems have been done 
correctly. Study them carefully. 

Example X: How many apples can you buy for 80 cents at the 
' rate- of 3 for 10 cents? 



(1) 6 "(2) 12 (3) 18 (4) 24 (5) 30 

The correct answer to the problem is 24, whicA is Choice (4) . 

Example Y: In 4 weeks John has saved $2,80. What have his 
average weekly savings been? 

(1) 35^ (2) 40^ (3) 50^. (4) 70^^ (5) 80^ 
The correct answer to the above. problem is 70^, Choice (4), 



PART m 



A, clerk miiltiplied a number by ten when it should have been 
divided by ten. The answer he got was 100. What should the 
answer have been? 

(a) 'l . (b) 10 ' (c) 100 

< ■ • ■ * 

(d) 1000 (e) 10,000 



The average salary of three programmers is $95 per week. 
If one programmer earns $115, a second earns $65, how 
much is the salary of the third 'j^rog rammer? 

(a) $95 (b) $105 (c) $115 

(d) $160 (e) $180 . 

1£ a card punch operatbr can process 80 cards in half an hour, 
how many cards can she process in a seven and one^^half hour 
day? 

(a) 560 (b) 600 (c) 800 ' 

(d) 1120 (e) 1200 



In a programming team of 12 persons, 1/3 are women and 2/3 
are men. To obtain a team with 20% women, how many men 
should ^e hired? ^ 

(a) 4 . (b) 6 (c) 8 

(d), 12 (e) -20 

4 

» .4 

It cost a college 70 cents a copy to produce the program for 
the homecoming football game* If $15 , OOO^ was received for 
advertisetVients in the program, how many copies at 50 cents 
a copy must be sold to make a profit of $8000? 

(a) .14,000 (b) 35,000 (c) '46,000 ' 

(d) 75,000 (e) 115,000 
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IBM KEYPUNCH - GENERAL INFORAdATION 



All IBM card^s have 80 columns; they are read from left to rtght. 
In each coliamn there are 12 possible punching positions^ 



12 



11 <or X)^ zone punches + 1 through 9 digit punches = 12 positional 

The* combination of 1 zonelpiinch and 1 digit punch makes an alphabetic 
""character , ^ \ 

12 zone punch + 1-9 digit punch = letters A-I • 
11 zone pimch + 1^9 digit punch = letters J-R 

0 zone punch + 2-9 digit p\inch = letters 

The following chart is convenient for interpreting Alphabetic information 
punched in an IBM card: 





1 


2 


? ■ 


4 


5 




T 


8 


9 


12 


A 


' B ' 


c 


D 


E 


F 


G 


H 


I 


11 


J 


K 


L 


M 


N 


O 


P 




R 


0 


/- 


S 


T 


U 


V 


w 


X 


Y 


Z 



A field is a column or a group of columns, set aside by vertical lines, 
for one type of information which corresponds to the source document ♦ 

;A dotted line in a field indicates the pxmctuation; such as the position 
of the decimal in a money or percentage field « 



Corner cuts in cards enable the operator to. see that all the cards are 
facing the correct way. 

Only the left hand lower corner cut will not feed through the machine. 

< 

Fan and joggle the cards before placing them in the hopper. 

Cards are placed in the hopper face forward, 9"'edge down. 

Cards whicli have no fields are called General Purpose cards, or 5081. 

Cards which have fields are called Detail cards. 

The card which is placed around the drum is called a program card. 

When mounting a program card on the drum, first fasten the column 
80 edge of the card imder the smooth edge of the clamping strip. 

When the Star Wheels are UP the machine is in alphabetic shift; when 
the Star Wheels are Down on a program card, tlie machine is in pro- 
gram control. (The program Unit controls, skipping, duplicating, 
alphabetic and ntimeric punching.) 
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Cards are placed in the hopper, face forward, 9-edge down* 

The machine fuses are located behind the chip box. 

The card column indicator points to the next column to be punched. 

The card gauge should be used to check the punching registration, 
daily and after card jams . 

Depression of the feed key does not cause feeding when a card has 
been registered for punching. 

With automatic feed ON, when column 80 of a card passes the punch- 
ing station, that card moves to the reading station, a card at the right 
in^e card bed is positioned for ptmching, and another card is fed from 
the hopper. 

The pressure roll release lever is depressed to permit the removal 
of a card caught at the pimching or reading station. 

A card can be manually inserted, at the right of either the punching 
or reading station. ^ 

When moimting. a program card on a drum, first fasten the column 80 
edge of the card under the smooth edge of the clamping strip. ^ 

When alphabetic information does not fill the entire field, the, un punched, 
portion is normally skipped, by the use of the skip key, in conjunction 
with program card coding. . * * 

« 

Cards in the punching and reading station, and the program card moves 
backward when the backspace key is depressed, 

a^' ' ; ' 

With program control ON, depression of the dash' skip or dash key, 

always punches an X (11 punch), but causes skipping over numerical 

fields only. , ' ' ' 

Automatic skipping can be accomplished, when the^program card is 
properly punched, and the automatic skip switch is ON* 
* I.' * 

Duplication by use of the duplicate key is faster with program control 
than without. 

Depression of the duplicate key locks the machine if the coltimn of the 
card at the reading station is unpunched and the keyboai:^! is in numeri- 
cal shift . • * . ' ' 

' ' } ' 
When numbers are to be occasionally punchedHn an otherwise alpha- 
betic field, (such as street address), the program card is normally 
coded for alphabetic punching and the numerical shift key is depressed 
when necessary. 
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When date is automatically duplicated , to change the date, the auto- 
matic duplicate switch must be turned OFF, and the new information 
,p\inche4 in the first detail card of the new date group. 

The backspace key backspaces the cards continuously, as long as it 
is held depressed. 

When a card is released due to a punching error, the' information in 
a field programmed for automatic duplication is automatically dupli- 
cated regardless of its location • 

i 

When correcting an error during punching under program control, 
the. operator may duplicate all of the correctly punched fierds,-and 
must rekey only the field containing the error column. 

In order to punch alphabetic information with program control ON, 
either the program card must be coded 1 or the alphabetic shift key 
must be depressed. 
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, IBM 024 CARD PUNCH 

With Star Wheels UP this machine puncheis alphabetic information. 
In order to punch numeric information 'with the Star Wheels UP 
(program control off) the numeric key (NUM) must be held down. ' 

THE PARTS OF THE MACHINE ARE AS FOLLOWS: 

Main Line Switch (oiiL^and on) 

Card Jlopper ? ' ^ 

Pre ssu*re 'Plate (iiolds cards in hopper) 

Card Beds "(three) - punching station , reading station, and 
card stacket , . • 

, . Card Weight 

Key Board (nxpyable) 



Jog Plates • ' . 

Control Switches " . * ^ 

't *. / * * - • ■ 

Reading Board - ' . " 7:^^ • 

Chip Box, (em^ty daily or when necessary) * 

• Fuses, (two small ones may be replaced by operator) ^ 

Back ^ace Key - ' 

Program Control Lever (Star Wheels) - never put the Star Wheeb 
down unles^ tljere is a. card on, the program drum . 

Pressure Roll Release Levef (press down the release cards caug 
^ in punching or reading station) 

Card Column Indicator (sits •on next column to be punched) 

\ ' 

Keys - gray keys are punching keys, blue keys are functional key 
and keys with shadow* in back of them are numeric keys 

Use first fiifgerior 7, 4, 1, and DUP 

Use middle finger for 8, 5, 2 and X SKIP (the X SKIP or * 
DASH" SKIP key always punches an X (11 zone punch) 
and skips over ^nuIn eric fields bnly) . 
' . Use ring finger' for 9^, 6, 3 and 0. 

Program Drum 80-edge of card goes under smooth edge of 



clamping, strip . >^ ^ 
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IBM 024 KEY PUNCH 



IvtAIN LINE SWITCH ; This' switch turns the machine ON and OFF, 

CARD HOPPER AND PRESSURE PLATE; Iiiside the card hopper 
there is a pressu^-e plate which hoids the cards in -position, 

PUNCHING STATION r Punching is perforiped dt the first right-hand 
station. 

REAPING STATION ; Cards are read 'for duplicating at th6 left-hand 
station, ^ 

CARP STACKER ana CARD WEIGHT; Inside. the card stacker is a 
card weight which holds the cards in position. . 

CARD BEDS ; These are located to the right of the ptinching and 
reading stations and below thp card stacker. 

SACK SPACE K£Y ; This key is located below the car^ bed between 
the reading and pxmching stations • 

KEYBOARD and READING BOARD r The keyboard is movable and - 
sits on the reading board. 

CONTROL SWITCHES ; These switches are on top' of the keyboard 
and they control automatic feeding of the cards and automatic skip- 
ping and duplicating. (The 026 Key Punch machine has a switch 
which controls printing also.) . 

* 

JOG PLATJES ; These are located on both sides of th^, keyb'oard . 

CHIP BOX and FUSES ; The chip box is located under the reading y 
board and is emptied daily. The machine fuses are located behind 
the chip box, (The twO small ones may be replaced by the operator.] 

PROGi^M CONTROL LEVER ; This lever is located below-the pro- 
gram ^nit and is used to raise and lower the Sts^ Wheels. ^(Never 
lower the Star Wheels if there is no card on the program drum, nor 
pull the drui^i off when the Star Wheels are down.) 

PROGRAM DRUM : The program drum is located inside the program 
unit, 

COJ.UMN INDICATOR ; This indicator, located at the base oithe 
program drum holder, indicates to the operator the NEXT cojximn 
to be punched , 
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PRESSURE -ROLL. RELEASE LEVER ; This silver lever, located above 
{he cokimn indicator and to the right of the program drum, is depressed 
to permit the rertioyael of cards caught at the punching and reading sta- 
tions. . 

KEYS ; The gray keys are punching keys, the blue keys are functional 

keys, and the shadowed gray keys are the numeric keys. Fo?r touch - 

system use; • ' / 

• » • ■• . 

Index finger for digits 7, 4, 1, and DUP 

Middle finger for digits 8, 5, 2, and -SKIP- . (The DASH SKIP or 
" X SKIP key always punches an X (11 zone punch) and. skips 
over numeric fields only.) 
Ring finger for 9, 6, 3, and'O., - 



ERIC 
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HOW TO START KEY PUNCHING (FINGER EXERCISES) 



1. Turn on the Main Line Switch. 

2. Get a handfijl of general purpose cards (those having no fields) 
froni the shelf . .. . 

3. Fan and joggle these cards then place them in the hopper of the 
machine face forward, 9-^edge down, 

4. Put the program card on the program drtim, 80- edge tinder the 
smooth edge of the clamping strip* , 

5. Place the program drum on the spindle so that it rests firiniy 
on the card coltnnn indicator, then put the Star Wheels down 
(program control lever on). , 

6. Press ,the Release Kesy (marked REL). If the program drum 
. turns around, the machine is warm and you may continue to 

the next step." If the d»am does not turn, wait until it does ^ 
turn before continuing. " J 

7. Press key marked FEED twice ahd then tiirn the Auto Feed and 
Aiito Skip* and Dup switches to the **on'* position. 

8. You may now punch the finger exercises. Be sure you, are using 
the correct fingers as shqwn on your chart. The numbers are 
grouped in units of four f^ easier reading but there are no 
spaces between these groups; the numbers are punched consecu-- » 
tively • , ' . ^ ' 

9. If you make~a mistake and want to start over, press the key 
mar^d REL. (Release Key) and the error card will move to the 
read station, the card in the punch station will be registered 

Y for punching, and another card will be fed from the hopper. 
When this new card is completed, th^ error card will be in the 
stacker and must be removed. (Only correct cards are supposed 
to remain in th^ stacker.) ^ • 

10. If you are leaving your machine ^for a period of time (coffee break), 
' clear your machine by turning off the Auto Feed and Auto Skip and 

Dup switches and by pressing first the Release Key (REL) and 
tiien the Register Key (REG) alternately until the cards from the 
card bfeds are in the stacker. Then turn off the main line switch. 

11. ^If you are going home, aft^r you have cleared, your machine put' 

the punched cards in the salvage box on the teacher^s desk (or 
where\^r the teacher says) and the un9«»<;hed cards back in t|ie 
box they came from. Please do^ not mix tn^H^together • Leave 
the card hopper in the^pen position. 
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' ^ ^ • . ' ^ ^ ...» 

12. Be sure"1he Star Wheels are UP, then remove the pi^er^ram drum 
from the spindle and remove the program card from the drum. 
{Turn handle half way^ the|i remove^card from under teeth edge 
of the cj^amping strip; turn the handle to^ward the smooth edge of 
the clamping strip and finish removing the card from the drum,) 
Save the program card for the next ^lass session. Return the 
program drtun to the spindle loosely . Do not try to fasten the 
peg* in the hole." 

13. lEmpty Chip Box (if necessary) and replace in machine. 

-14» Replace books and rulers (if borrowed) back where they came 
from. 
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NORMAL PROGRAM CODES 



r 

} 

12 - FIELD DEFINlTIO^T 
'11 - SKIPS 

0 - DUPLICATES 

1 - ALPHABETIC 
"Space - NUMERIC 



The 12 zone punch is made by punching the letter "P" with the numeric 
key held down. ^ 

The 11 zQne punch is. made by punching the SKIP X or DASH SKIP key 
in either tjie numeric or alphabetic ^hift. 

The 0 (zero) zone p;iinch is made by punching the 0 (zero) key ynth the 
hximeric key held down, 

12 is the FIELD DEFINITION which continues and defines fields. 

V 



RULES: 



1.* ' There i^ust be- 12 's piinthed^n every* column of the field except 

the first position, in the first positionHhere must be the command. 

'2,^ Alphabetic must have I's in every column of the field plus Rulfe #1. 



1^ SKIP: SKIP X (II zone pun chV followed By 12 ^s . 
— ^ — • V * 

2. DUPLICATION ;. -(JMumeric) 0^ (zero) followed by 12's . 

3. DUPLICATION : (Alphabetic) 0-1 (zero and 1 in the same column) 

- followed by the letter "A" .-:--= 

4. ALPHABETIC: 1 foU6wed by ^^A's 
5., ^ NUMERIC ; Space followed by 12's . 

ALL ALPHABETIC CODING MUST BE FOLLOWED BY A's. . 
ALL NUMERIC CODING MUST BE FOLLOWED BY 12's. 



ERIC 



**The letter "A" is just a faster way of punching a 12 zone punch plus 
a 1 for an alphabetic field definition. (The letter "A" being made of 
the zone 12 and the digit 1.) - . 
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Laboratory Exercises - K-eypxinch Course 
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EXERCISE 1 



Specification: Card Column 



) 



1-^ Student number (last column will bo alpha) 

7-31 jCqurseiitle (alpha) 
32-35 Course rumbcf 
36-40 Glass number 
41-44 Dopnrtnfient number (dup) 
45 Hoiirs , . 

46-69 - Student name (alpha) 
: 78--79 Grade number 
80 Student code (alpha) 



1-6 


7-31 


32-35 


35-40 


41-44 


45 


46-^3 


78-79 


80 


Student * 
Number 




Course 
Numbef 




>. 
*> 






k ■ 
f) 

C 9 
(92 


*i 
e 


Course TlXla 


Class 
Nurnt 


• J» 
OZ 


Hour 


Student Nam* 


^5 
So 
«P 


87S06A 


DATA PROCESS. 


7634 


97531 


1088 


7 


JOHNSON. WILUAM 


81 


J 


756898 


BOOKKEEPING 


5704 


786{i4, 


3^2 


7. 


SMITK. MARYANN 


64 


S 


83824K 


BUSINESS 


9874 


34867 


2033 


8 


ARNOLD, PAUL 


40 


A 


70S90N 


KEY PUNCH 


875B 


12308 


4286 


S 


BRIGHT. BETTY 


76 


B 


68570C 


HISTORY , 


9049 


67491 


0798 


7 


CARLTON, THOMAS 


56 


C 


12367X 


ENGLISH 


7878 


34786 


0012 




CONNER, FRED 


87 


C 


70956K §PrtCH 


6757 


23498 


7070 


9 


ISAAC, JACK 


* 13 


1 


0S876T 


BUSINESS MATH 


7856 


45365 


4563 


» 

8 


IRWIN. STANLEY 


45 


I 


75634 R- 


MA^IIMES. 


9850 


36759 


6875 


9 


KRAVITSKY, JULIUS 


68 


K 


46891W 


DRAWING II 


8762 


54540 . 


2309 


7 


RODNEY, HARRy 


91 


n 



EXERCISE 2 /< / 
Specificationi Cord Column 



/ 1-8^ V ^^9 number (last column will bsjalpha) 
9-1 3k Account number 
18-22^% Qu'amity ' , 
23-30 . Amount 
45-^50 '^Pate (dup) 
51-59 Purchase order ^ 
60-76 Vendor's name 
77-80 Current date (month and day) 



1-8 


S-13 


18-22 


^3-30 


45-50 


51 -S9 


60^78 


77-80 


w 






M 
C 








c 


• 

jD 

|2l 


QuantI 


3 
O 

E 
< 


O 


Order 


Vendor's Namo 





7660S43A 
9865002T 
7594608R 
7945003K 
667438BP 
7645998S 
2347895D 
56709r>6J 
O987890Z 
7654 5C2L 



75972 
87307 
52119 
67511 
55731 
89898 
54761 
11223 

B7(j13 



00024 000540.70 091070 976511578 WILfRED, GODFREY 0812 
00300 OOODO0,7S 09;i'070 97G1 1 0054 ANDREW, JOHN 0905 
00019 000007,00 Cf91070 1 1 1453379 MONSEN, ARVID 0906 
00210 000345.90 031070 9B99G6001 SMITH, ROBERT ■ 1109 
0Q054 000104,00 091070 768490012 INGHAHAM. FRANK 1110 
00105 000200,00 091070' 074589021 COWAN,i KENNETH 0711 
00078 0001VD.S5 091070 9S7CG7093 CLOM Y, WILLIAM 1115 
00?30 000414.00 ~ 031070 090C5741 1 JOMNnON. r/?ANKLlN 1205^, 

00025 00001.0.00 091070 98701 1004 SFY1501.T, GEORGE 120?" 
00415 000000.98 091070 007423579 WILLIAMS, PETER 1230 



■ €3 
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, EXfRCiSE 3" ♦ 

Specification: Cvd Cokmin 

.1-6 ClJcck number— left zero's print 

7-26 Name ' 

. 27-37 City 

38-42 State (dtjplicatc) 

50-55 Date (duplicnte month and year only); 

65-69 Amount " 



1-6 


7-26 


27-37 


38-42 


50-5S: 


65-63 


70-80 


Check 














Number 


Name 


City 


State 


Date 


Amount 


X 


7589 


FREDERICK, ROBE:RT 


llAKEWOOD 


CALIF 


041067 


55.00 




864 


MEEKS, BOB 


LONG BEACH 


CALIF 


041 4G7 


145.00 




1090 


MYERS, FLOYD - 


BELLFLOWER 


CALIF 


041667 


70.00 




45 


HODGE, PAUL* 


PARAMOUNT 


CALIF 


042067' 


35.00 




490 


GOF-F, DARRELL 


DOWNEY 


CALiF^ 


0421 67 


265.00 




. 24 


GUiDA, DANNY 1 


LAKEWOOD 


,qauf' 


042567 


S.98 




18 


BARTLEY, EDWARD 


NOR WALK 


CACtf. 


^042867 


• 80.80 




^85 


DEMPSEY, HERBERT 


LONG BEACH 


CALIF 


042967 


75.25 




S8401 


LEONl, ALLEN 


ORANGE , 


CALIF 


043067 


123.09 




690 


HALLIDAY, LINDA 


* PARAMOUNT 


CALIF 


043067 


300.78 





EXERCISE % 



Specification: Cafd Column 

1-6 Check date (duplicate year only) 
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12- 


■1 5 Check number 








\ 


16-40 Name of payee 




I 






46- 


'50 Amount 










55- 


70 B<ink name 




<• 






75- 


80 Current dato (duplicate yoar only) 




1-6 


12-15 


16-40 


4S^50 


55-70 


75-80 


Check 


9hock 








Current 


Dato 


Numbor 


Name? of Payeo 

- ^ — ^ — - 


Amount 


Bank Name 


Date 


030957 


2356 


HANSON, SUSAN 


087.90 


FIRST NATIONAL 


061068 


031167 


7645 


SCOTf, SYLVIA 


090.00 


FEDERAL SAVINGS 


051 8G8 


042167 


9856 . 


GARfUSON, KENNETH 


145.40 


FIRST WESTERN 


092568 


0507G7 ■. 


452^ 


ROONES, nOB 


175.00 


FIRST NATIONAL 


032868 


050967 


G745 


POT IK^l, TOM 


230.50 


finST WESTERN 


100268 


072367 ^ 


S007v,. 


_ HUG} ITS, MARTIN 


15 00 


FEDERAL SAVINGS 


100G68 


072467 ' 


8009 


ANDriiSON.iFDWIN 


4387 


HOME SAVINGS 


102408 


1009G7 


>6731 


hartley; dlhbif 


66.65 


FIDELITY 


111963 


10?-! G7 


1816 


HlGGiNS, H! NHY 


•303.00 


BANK AMERICA 


1120C3 


1130GV 


8G11 


MCCORMICK, JUSF.Pi^ 


212.20 


SAN FRANCISCO 


12290^ 
— fc ■ 


6i 



EXERCISE .5 



Specification: Card Column 





1-3 


School number 












10-25 


Location faioh^V 












27-35 


Serial number 














Ual6 












55-61 


Phone nurnber 












65-69 


Invoice number 












73-75 


Items (numeric) 












77-79 
• 


Item by code (alpha) 






« 








27—35 . 35-45 


55-61 . 


o5-o8 


73-75 


77-79 SO 








PnonG 


invoics 




9 

iiem 


Number 


Location 


Number Date 


Number 


Number 


Item 


Code X 


789 


DEMILLE 


41S456120 06-15-65 


9276096 


36241 


104 ' 


ABC . 


586 


LINDBERGH 


7S654097S 06-23-65 


8679775 


83620 


26 


BCF 


411 


MfLLIKAN 


456119876 06-25-05 


4214580 


436SS 


3 


GAB 


871 


LAKBWOOp 


456681189 07-04-66 


4267589 


, 16231 


264 


LAC 


830 


AVALON ' , 


564789125 07-19-66 


8697460 


98743 


59 


OEF 


764 


BANCROFT 


761190856 10-20-66 


8675980 


* 28623 


300 


BOG 


597 


LONGFELLOW 


• 5467811 DO 11-25-66 


4366549 


46809 


150 


LBR 


543 


JO R DON 


567489076 08-06-67 


8769458 


67540 


756 


KLH 


, 984 • 


WILSON 


765234901 08-11-67 


8^75409 


52110 


98 


UK 


974 


POLY 


768905437 09*28-67 


4257890 


87615 


9 
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EXERCISE 6 



Specification: CaVd Column 
^ 1-8 Number 

' ■ * Column 8 alpha 

Columns 1-7 left zero print 
14-18 Account number 
^ / 23-27 Quantity 

33-38 Amount (print suppress amount) 
46-t51 Current date (dup) 
52-70 Name 

78-80 Your initials .(first, middle, last) 



1-8 J 


14-18 


23-27 


33-38 


46-51 


52-^70 


78-80 




Aocount 






Current 






Number 


Number 


Quantity 


Amount 


Date 


Name 


initials 


9B745K 


76543 


00342 


98.00 


081667 


COTTLE, JAMES 


JMC 


4590D 


9813G1 


06076 


180.90 


081567 


HOLLEMAN, RONALD 


RDH 


47A 


. 674DO 


0021 1 


79.00 


081567 


WHITE, BILL 


BiW 


0089674J 


65231 


(^0D8 


' 240.00 


OS15G7 


PACKAI^D, JEFF 


JAP 


5118Gr' 


23?11 


00460 


90 00 


081 5G7 


JAMES. RiCHAfm 


RAJ 


781120* 


0B614 


OOOOD 


37G 98 


081 bG7 


ZIMfwlLRDAf^L, STEVE 


SPZ 


89T 


4[,3G7 


00075 


211.00 


081 LG7 


Will, DIANE 


OMW 


6173M 


984U7 ' 


002i)0 


Cb.bO 


osir.G/ 


MCMURfUY. CHUCK 


CRM 


7171000F 


r>Gr.a7 


oo7^:o 


44 OO 


08n>G7 


COOIM R. SHAHDN 


sf'c 


6031 P 


1 1 no4 


000Gb 


300.00 


081 LG7 


VAILIS. DALE 


DTV 




* 






* ♦ 
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THE JOB INSTRUCTIOIvr SHEET: EXERCISE 1 

The foHowinti excfciso is-dosinncd to familiarize the student with the job instruc- , 
tion sheet, pFbtirnm cnrds ar& to be coded and punched from the information 
contained on the mstruction sheet. The prepared^gram cards are then to be 
utilized in thq.punchino of the exercise. 

The numeric portions of the exercise may be used a&an additional nuinoric drill 
on the Seiectric typewriter. ' - 

Genera! Instructions: 24. 26, and 29 Keypunch^ 

1. Using a blank card and a pencU, design a program card to punch the data 
specifications contained on the job instruction sheet. 

2. From the planning card prcpared^from step 1, punch the program card. 

3. Keypunch each page of the exercise without stopping. Time yourself on each 
page so that you may check your speed. 

4. Visually verify the accuracy of your cards, or verify them on a 56 or 59 verifier. 
'. 5, Rekeypunch the cards containing errors and turn in all cards to the instructor. 

6. Record your time and speed from the accompanying chart in your notebook and 
also on a separate card to be turned in to your instnjctor.^ 

\ • * . 

• Seiectric Typewriter Instructions 

1. Sot margin stops at 1 and 80. 

2. Place a blank sheet of paper in the typewriter and be sure the 1428 typing* 
element is in place. 

3. Set the tab stops to tabulate over alphabetic fields or fiejds designed to be 
' skipped. 

4. Typo the- exefci&e. Upon completion of each line visually verify and make any 
necessary corrcctiong by retypinjg the entire line. 

5. Time yourself and retype th^ assignment going straight through and not stopping 
after each lino to verify, 

6. Use the accompanying chart to find your punching speed measured in key- 
strokes per hour. Record the figures in your notebook and also at the bottom of 
the assignment to bo turned in to your instructor. ■ \ ■ 

7. Visually Ntefify the e.xercises and retype any line containing an enoi. 



Estimating Your Keypunching Speed 



(Viunibor of Keystrokes 


Time Required to 


Keystroko Speed In 


Per Page of 


Keypunch One Page of 


Keystrokes Per 


Exercise 


E»erciso in Minutes 


Hour 


1,040 


21 


3,000 




4,000 




121 


5.000 




10J 


6,000 




7i 


8,000 


* 


6 


10,000 


• 


5 


1 2,000 



68 



Job PFfi-l 



Plant and Equipment Record 



E-5 



location 




J 




Asset 




Acqui- 


Expira- 


Total 


Periodic 




Plant 
Btdg. 


Floor 


% 


Number 


Acct. 


Class 


« 


Description 

1 


sition 
Date 


tion 
Date 


Installed 
Cost 

• 


Deprecia- 
tion 


Factor 
Value 






5 


4725 


5 


] 


123 


AUTO SCREW MACHINE 


06/51 


06/6.7 


3,473.60 


201 ,24 


3,775.45 




1 


5 


4462 


s 


2 


125 


DRILL PRESS MODEL 2 


04/50 


04/66 


3,600,00 


313,00 


3,671 .00 


1 1 


1 


5 


4462A 


. 5 


2 


125 


SAFETY DEVICE 


04/50 


04/66 


96,00 


6,00* 


98.00 




1 


5 


4639 


5 


3 


015 


ARBOR PRESS 


10/70 


10/70 


595,05 


29.40 


619,55 


1 ! 1 


m 

1 


5 


4706 


5 


3 


39 


DUPLIGRAPH PRESS 


04/51 


04/67 


2.375,19 


145^0 


2,568.75 




m 

1 


5 


4672 


c 
9 


c 
9 


10 


ROTARY SURFACE 
GRINDER 


t 


1 Z/DD 










i 


5 


4680 


c 


5 


16 


RADIAL GRINDER 


01/5^ 


01 /66 


1,015.26 


66.24 


1.087.02 




1 


5 


' 4632 


5 


5 


39 ' 


SURFACE GRINDER 


10/50^ 


10/65 


3,716,44 


168.48 


2.856.84 




1 


5 


4S90 


. 5 


6 


JS 


MILLING MACHINE 


02/51 ' 


y 02/67 


2,858,49 


168.00 


3,054.49 




1 


5 


4695 


5 


6 


'22 


VER. MILUNG MACH. 


02/51 


\c2/67 


3,387,38 


207.60 


3,529.58 




1 


5 


4586 


5 


6 


29. 


GEAR NOBBING "MACH. 


' 02/51 


(52/67 


3,387.38 


150.00 


2.913.18 




1 


5 


■ 4589 


5 


6 


102 


GEAR CUTTING ' 
MACHINE 


08/50 


osVss 


3,851 .59 


204.00 


3.987.69 




1 


5 


^45,01 


6 


2 


18 


PREClSiON GAUGE 


06/50 


06/teo 


S02.40 


* 29.28 


317.04 




1 


5 


4601 


7 


1 


25 


LATHE BENCH 


08/50 


08/00 


T82,35 


48.24 


514,61 




1 


5 


4801 


7 


1 


28 


LATHE BENCH 


0S/51> 


08/67y 


1,318,50 


75.00 


1,443.50 




1 


5 


4509 


7 


1 


46 


TOOL RACK 


06/50 


06/7o\ 


124,80 


6.24 


127.92 



t 



Job PER*2 



PSant and Equipment Record 



Location 



Asset 



Item 



o> p a Number tS S 
o iS 
< 



£ 2 ^ o 



0. OQ U. O 



a* 



Description 



AcQui- Explra- 
sitlcn tion 
Pate Date 



Total 
Installed 
Cbst 



Periodic 
Deprecia- 
tion 



Factor 
Value 



7 


1 


7 


4 


5646 


7 


2 


185 


ENGINE LATHE 


03/67 


03/77 


7.090.00 


430.00 


7,100.00 I 


7 


1 


7 


4 


7773 


8 


2 


846 


BENCH MILL 


05/67 


-0§/77 


9.800.00 


650.00 


^10,050.00 


7 


1 


7 


4 


7659 


8 


2 


88 


TAPS & DIES Ajf 


osve? 


05/76 


. 650.00 s 


125.00 


700.00 


7 


1 


7 


4 


4563D 


8 


2 


410 


END-MILLS ^ 


02/68 


02/78 


8,000.00 


530.55 


8,259.90 


7 


1 


7 


4" 


6530 


8 


2' 


550 


MILL-CUTTER ^ 


02/67 


02/77 


6,550.00 


400.90 


7,000.00 


7 


1 


7 


4 


1174 


8 


2 


218 


REOMERS 


07/67 


07/77 


900.00 


220.00 


1,100.45 ^ 


7 


1 


7 


4 


3468 


8 


2 


90 


CARBIDE ■ 


08/67 


'08/78 


1,500.00 


333.54 


1,870.00'" 


7 


1 


7 


4 


5587^ 


4 


2 


56 


KELLOGG SPRAY 


08/56 


08/76 


475.00 


98.00 


550.89 


7 


1 


7 


4 


5171 


1 


2 


679 


HARDING HEL. CHUCKER 


08/67 


08/77 


8,050.50 


600.00 


9,1 00.00 


7 


1 


7 


4 


44nA 


1 


5 


643 


'AIR COMPRESSOR 


10/67 


10/77 


500.00 


100.00 


650.00 


7 


1 


7 


4 


7639 


1 


5" 


992 


LINCOLN WELDER 


10/66 


10/77 


2,000.00 ■ 


350.98 


2,500.00 


7 


1 


7 


4 


6743 


1 


2 


594 


SOCKET SET 


10/67 


10/77 


150 00* 


25.00 


175.00 


7 


1 


7 


4 


8653 


^ 7 


2 


19 


GEAR MOBBING MACH. 


09/68 


09/78 ■ 


3,337.38 


388 00 


4.000 00 


.7 


1 


" 7 


4 


6753K 


7 


5 


640 


RADIAL GRINDER 


11/67 


'11/76- 


1,090.45 


325.68 


2.329 00 


7 


1 


7 


4 


6754 


8 


- 5 


81 


ARBOR PRESS 


11/67 


11/76 


635.00 


186.00 


76000 


7 


1' 


7 


4 


9899 


8 


5 


403 


BELT SANDER 


12/67 


12/77 


400.00 


94.56 


575.00 
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APPEJ^DIX F 



Preliminary Exercises - Business Data Processing Course 



"ER?C 



6S 



SECTION A 



IP; FULL- TIME JwtOVE NAME 
TO REGISTER. IF MARRIED 
MOVE @M@ TO STATUS, 
ELSE MOVE @U@- TO STATUS, 




to* • 




TO ST^MUJ 



NO 



IS- FULL-TIME MOVE. NAME 
TO REGISTER . IF MARRIED 
' MOVE ^M@ TO STATUS, 
ELSE MOVE @U@ TO STATUS. 




-TO STPTTUS 



rnove >u,' 

TO 5T^T^US 



NO 




S.9 



-MOT >4tSTi.D- 



F-2' 



SECTION A 



ROUTINE TO TIND. LARGEST OF .THREE NUMBERS USING NESTED IF[s 

IF A > 6, IF A > C MOVE A TO GREATEST; ELSE MOVE C TO ^ ^ 
GREATEST. '/ 
IF B > C MOtE B TO GREATEST; ELSE MOVE C TO GREATEST. ' 



FLOW CtlART 



0 




. MOVE A- 
TO 

QREATEST 
! 



MOVE C 
TO ' 
GREATEST 



CODING: 

IF A > B d^ TOPAR-l. 
. IF B > C MOVE B TO GREATEST; 
ELSE MOVE C TO GREATEST. ' 
GOTOPAR-2. 

/1=4.R-1. 

' IF A > C MOVE A TO GREATEST; 
ELSE MOVE C TO GREATEST.. 

•PAR-2. 

NEXT SENTENCE ..." 



0- 



4 « 






NEXT 





SENTENCE 



NO 



0' 
■0 



• 


V. B > C ^ 






■ N 


YES 






MOVE B 
TO 




< — — 


GREATEST 














, MOVE C 
TO 







.GREATEST 





8. WRITE THE STATEMENTS TO Dq THE FOLLOWING: i 

A. DETERMINE WHETHER HOURS-WORKED IS GREATER THAN 
37.5 AND, iF SO, TRANSFER CONTROL TO AND'THE^ PARA- 
GRAPH^WHICH YOU DO NOT WRITE) NAMED OVER TIME - 
ROUTINE.' 

IF HOURS- WORKED IS GREATER THAN 37.5 .GO TO OVERTIME- 
' - ROUTINE. 

B. TRANSFER CONTROL TO BAD-CODE IF CODE CONTAINS , 
ANYTHING BUT DIGITS. 

/ IF CODE IS NOT NUMJ^^RIC GO TO BAD -CODE. , 



SOURCE AREA 





PICTURE 


SAMPLE DATA . 


PICTURE 




9(6) 


0QO123 \ 


ZZZ,99^ 


10. 


999999 


OOOOJ38 


ZZZ,999!r 


11. 


9999V99 


001234^ 


$$,$$9.99 


IZ\ 


X(6) 


123456 


XXXBBBXXX 



RECEIVING AREA 

EDITED RESULT. 





WRITE THE FIRST THR^E LINES OF OUTPUT, GIVEN: 
IDENTIFICATION. DIVISION . 



WORKING- STORAGE. SECTION, 

77 TAX-RATE 

77 MID-VAL • 

77. -TAX- AMOUNT ' 

77 TAX'CTR 

77 XXX 

■01 ^ LINE -IMAGE 

02 LOW-1 • 

02- FILLER 

02 HIGH-1 

02 , FILLER 

02 TAX 
PROCEDURE DIVISION. 
P-1, 

DISPLAY @ AMOUNT- 



PICTURE V999 VALUE .045. 
PICTURE 9V999- 
PICTURE V99; 
PICTURE V9^. 
PICTURE 9V99. - 

PICTURE Z.99. ' 
PICTURE X{4) VALUE SPACES. 
PICTURE Z.99. • • . 

PICTURE X (4). ' ; 

PICTURE .99. 



TAX@. 

DIVIDE TAX-RATE INTO 0.0047 GIVING MID-VAL, ROUNDED. 
MULTIPLY >IID-VAL BY 2.0 GIVING XXX. 
MOVE ZElRO TO LOW-1. 
MOVE 'MID-VAL TO HIGH- 1 . 



P-2 



AMOtiNT 



DISPLAY LINE -IMAGE. ^ • 

IF MID-VAL IS GREATER THAN 2'STQP @JOB@ 
ADD ,01 TO MID-VAL^ 
MOVE MIP-VAL TO LOW- 1 

ADD XXX TO MID-VAL MOVE; MID-VAL TO HIGH-1 
ADD .01 TO TAX-CTR MOVE! TAX- CTR TO TAX. 
GO TO P-2. ■ 



TAX 



Hi 



(OUTPUT) 



SECTION B 



COBOLi Word 



Of the total COBOL character set, only the alphabetic, numeric 
and one special character (the hyphen) are used in the formation of 
COBOL, words , A COBOL word is ended by either a space, or another 
punctuation symbol. • 



Data -Names 
_^ ^ 



A data-^iiame is a COBOL word which the programmed invents 
to represent the data involved in his problem. ^A data-name may have 
from one to thirty characters, but neither the first nor the last charac-- 
ter may be a hyphen, and at least one of the characters must be .alpha- 
betic . . 



ADD. SUBTRACT. J^ULTIPLY, DIVIDE, MOVK STATEMENTS 
. ADD ^ A B C D E F GIVING X. 5^ 

SUBTRACT A B K L J R FROM TOTAL GIVING LEFT. 



MULTIPLY A BY R 
DIVIDE 1 A. INTO B 



MOVE 



B TO C 



GIVING C. 
GIVING C. 



Expiain ResC^rve Words 



SECTION B 

Method to Use V''hen Writing Programs 

Determine 
The Problem 



F-5 



} 



I 




List The 
Input Names 



1 



List The 
Output Names 



Draw A 
Temporary 
Flow Chart 



Design 
Printed Pace 
Fields 
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DATA DIVIS 
WORKING -ST 




SECTION B 



E SECTION. 



01 


M 

EMPL-NAMl" 


PICTURE 


X ( 3 ) 


01 


EMPL.-NAM2 


'PICTURE 


x{9) , 


01 


EMPI^-NAMS 


PICTURE 


x{6) 


01 


EMPL-NAM4 


.PICTURE 


x(9) . 


01 


EMPL-NAM5 


PICTURE 


x{6)- , 


01 


EMPL-NAM6 


PICTURE 


x(30) 



' PROCEDURE DIVISION, 
ST. MOVE @ ROBIN® TO 
MOVE ,@ flUTHA GARCIA© 
MOVE @ jWILLJAM@ TO 
MOVE @ IRMAfg TO 
MOVE @ IRENEA CHAVEZ© 
MOVE @ KEILANIAMORRI 



EMPL-NAMl . 
TO EMPL-NAM2 
EMPL-NAM5 . 
EMPL-NAM3 , 



TO 
TO 



EMPL-NAM4 . 
EMPL-NAM6 . 



DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
STOP RUN 



EMPL-NAMl. 
EMPL-NAM2 . 
EMPL-NAM3 
EMPL-NAM6 
EMPLrNAM5 
' EMPL-NAM4 



1), After execution of the program des-cribe the following 



EMPL-NAMl L 



EMPL-NAM3 L 



•EMPL-NAMB L 



*EMPL-NAM2 
EMPL-NAM4 v 
EMPL-NAM6 . 



2). 



What has been printed on the printer"^ 



3). What would have occurred if ail of the^^ircfiires in th 

, were x( 14)? ' 



DATA DIVISION 

WORKING -STORAGE SECTION, 



r SECTION'S ^ 



F-7 



01 


^ COUNT 


PICTURE . 


9999v99^ . - • 
• 






F. INT- 


PICTURE 


9(5) 




01 


" CTT 


m 

PICTURE 


9v9? ., 


• 


pr 


OWP 


PICTURE 


9^9y^' . 




01 


lOU 


PICTURE 


. 99. , 




01 
01 


TZE 

POK ^ • 


PICTURE 
PICTURE 


^ 99999v9999. 
99v999.' 


■ 


01 


- STU 


. PICTURE 


v99. 


« 


01 


A~D1 

* 


PICTURE 


^^^^ • ' . ^ 


^ ■ ■ . 


PROCEDURE DIVISION. 






SA, 


MOVE 


213. 578 


TO . COUNT, - 


• * 




' MO.VE 


213. 57& 


TO CTT. 






MOVE 


213.578 


TO INT. ■ 


• 




MOVE 


213. 578 


TO OWD^ 


) ' ' 




MOVE 


213. 578 


TO lOU. 


0 




MOVE 


213.578' 


TO TZE. 






MOVE 


, 213. 578 


TO . PQR. 






MOVE 


213. 578 


TO STU , 


• 




MOVE .@ 


ABCDEFG^ 


TO ADl . ■ 






-DISPLAY ' 


INT. ^ 








DISPLAY 


TZE. 








■: DISPLAY 


STU. 








STOP 


RUN . ' 






i). 


After execution 


of the program describe the following 


TTK^moTV 1 rir* a.ti on * 




. rOIINT 1 i 


INT ! 


1 CTT , 1 






OWD i , , 1 


TniT , .■ 


. 1 TZE X , 1 


STU 1 1 • 




PGR 1 


ADl 1 


1 . 




2). 


' What has been 


printt^ci in the 


■ . Si 
printer ^ 





What would have occurred if alf pictures were 9999v9999? 



ERIC 



75- 



SECTION B 



F-8 



IF A IS GREATER THAN B MOVE 5 TO C 
MOVE 3 TO D MOVE 8 TO E. MOVE 7 TO X. 



BEFORE 



AFTER 



CASE I 



El. 



CASE II 
±^ B . 1- . C^ 



D 



4^ E XUlL 



A 



D 



CASE III 
A, 2 , B , 2 . C . 14 . 



D . 4 , E , . 5 



J B, , C^ 



#2 



BEFORE 



r 1 



IF A IS GREATER THAN 
MOVE 3 TO D. MOVE 



B MOVE 5 TO C 

8 TO E. MOVE 7 TO X. 



CASE I 
l_j R, 9_, C 



.]4 



D 



A^ 



D 



J B^ 
, E. 



J ^L 



CASE II 



Bu_L 



14 



D 



1j E. 5 ..X. 1.1 , 



D . 



E 



J ^ L 



A 
D 



CASE III 



4 



jE^, X,_J2j 



Au 
D . 



B, 



jE^ 



#3 



IF A IS GREATER THAN B MOVE S TO C. 



MOVE 



BEFORE 



r 



AFTER 



3 TO D MOVE 
CASE I 

B, . 

X 



TO E. MOVE 7 



J 



Au: , B L 



J C L 



D, 



E 



A 



D 



CASE II 



B- 



C 



E 



X-L. 



A 



S5 L. 



B 



E 



C 



X 



TO X. 



A 
D 



CASE III 



Si- 



jE ^ 



A 



D 



jB ^ 



^E ^ 



id 

ERIC 
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APPENDIX G 



Examinations - Business Data Processing Course 



77 



ER?C 



SECTION A 



1, Hollerith code is described as a/an Code* - ^ 

(a) digital ' 

(h) niimeric ' - . 

(c) alphanumeric 

(d) alphabetical 

2. The. code used on 'IBM*^ punched cards is callipd: 

-(a) IBM code 

(b) Holle t.ith code 

{c) Morse code * 

(d) None o^ the above . ' 

^ 3. There are (?) columns in the "IBM" punched cards. 

(a) 60 columns ^ * 

(b) 9 columns / . ' 

* (c) 12 columns - . / 

(d) 80 columns 

4. If the GROSS-AMOUNT field of an "IBM" punched ^card is in 
columns 36 to 41, inclusive, how many columns dOes this field 
contain? • 

■ (a) 6 • . . . 

(b) 5 

(c) 1 

(d) None of the above 

5. A 12 2 on^ punch and a 5 punch in the same colvimn represents 
the letter: 

(a) D . 

(b) N . 

(c) E ■ . , 

(d) .^^ 

6. (?) holes are necessary to represent special symbols: 

(a) four ' • 

(b) three, two, or one 

(c) two 

(d) None of the above ^ \- . 

7. Card columns assi^ed to spec^Jffic itenns of data are^called: 

(a) unit records 

1 (b) fields • . 

(c) holenzle kard , ■'^ 

id) None of the above 



ERIC 
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8. (?) multiple punches^can be piinched in one column of a card: 

(a) 12 ^ . 

(b) 9 . * 

(c) 3 

(d) None of the above 




G-3 



SECTION A 



1. 

2, 
3. 

4. 

5. 
6. 
7. 
8. 

9. 

lo: 

11. 
12. 



The code used on "IBM" pux^ched cards is called the 
code . . 

The program card is locked around the program ^ 



The coltxmn indicator below the program Control unit shows 



Alphabetic information is recorded in punchfed ca^rds by cdmbining 
punches known as the and the 



j)\mcjie s . 



An 11 pimched in a predetermine card column for conferol purposes 



is sometimes referred to as a 



j>unch. 



A column or a group of columns set aside to receive specific in- 
formation is referred to as a • ^ ' . * 

Cards prepared from source documents on an IBM Key Punch are\ 
checked on a machine known as the . , * 

The printed side of an IBM card is generally refer3;'ed to ap the 

of the card. ^ 



Th^re are 



actual ptmching rows on a card. 



Special characters (such as the dash, comma, ampersand) are 
usually mad^ of from 1 to punches in a colxmm. 

/ 

.are raised and lowered by the 



The , 

program-control lever on a key punch machine. 

Cards are placed in the hopper, i.^^.— ^ 



999999 

99999999 
999 999 
9999999 
999 
999 
999 
999 



77777777 
77777777 
777 

777 

'77 
, 77 

77 

77 



000000 
GOGOOOOO 
000 000 
00 00 
00 00 
000 000 
■ 00000000 

000000 
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COBOL PROGRAMMING 
SECTION A 



9 Write the following arithmetic and standard algebraic notation in COBOL 
notation: • , . 

AlrftH- ALGEBRA NOTATION ' . COPOL NOTATION - ■ • 





.1. 


a + b 




2. 


o ■ 

c - d 




3. 


xy 


^: ■ 


4. 


* 2 ■ 

X 


■0- ■ 




z '4 X - y 






c 

d ••• 






- 4a c 


•«» ■. 








8.. 


.2 (a + b) 




* 

.9; 


'a + b 



'10. p + prt ' 



1. A -f B 

2. 

3. 

4. 

5. ' 

6. 

7. 

8. 

9. 

10. 



T 



NUMBERING SYSTEMS 

11. ADD: 10101 
01010 



12. 



1101 
1110 



13. 



nil 
nil 



SUBT: 10101 
00101 



15. 



101011 
011101 



16. 



iioion 

1011110 



-Convert the following binary numbers to octal numbers and the resultant 
octal numbers to their decimal equivalent; 



ERIC 



BINARY NUMBER 
L lOUlO 

17. loonoi 

18. ill nil 111 
1:9.. 1010000 
20. ■ OOUllOOO \ 

EOJRXN. 



OCTAL NUMBER 
56 



DECIMAL NUMBER • 

46 



\ 

\ 



cobolTprogramming 
section a 

true , or false 



L -I 



If a statement is AI-.WAYS TRUE, write (+); if a statement is NOT 
ALWAYS TRUE, write (0). 



l._ A COBOL data name is composed of no more than 30 COBQL 
characters, ' . , • 



2, A COBOL statiement may contain one and only one sentence. 



ERIC 



3. A COBOL statement mus.t always be followed by a statement 
separator, 

4. A sentence must aJliP^s be followed .by a period and a space. 

5. Every paragrafpn must have a nasne, , 

* K- 

6., The following^'^iia^racters are in the COBOL character set: 

+ , % $ # O R 

7. The follovs{dng are DATA NAMES: 

NET-PAY - " 

QUANTITY ON HAND 

ASTERISK'S'** 

DATA- DIVISION , 
^TE/3. . ^ 

8. IS is a reserved wbrd. 

9. The following is a legitimate paragraph format: 

MOVE QUANTITY TO 
ORDER -QUANTITY. 

MOVE CUSTOMER -NAME TO ' 
REPORT- LINE. 

10. The PROCEDURE ^DIVISION must precede the DATA DIVISIQN. 

;* X - • ■ , 

Fill in the "after" line in each of the foilowirig statements: * 

11. MOVE A .TO B. • \ 

Before: A B ^ 

165 274 

After: 



12. 




13. 



14. 



ADD A B C GIVING D. 
Before: A , B C • 
; I ' 2 3 

After: ^ _ „ _ 



D 
4 



SUBTRACT ABC GIVING D. 

- B C D 



Before: A 
• 2 

Af te r : 



8 



MUI-TIPLY A BY B GlVlNG C. 
Before: A B C , ' 



Af te r ; 



\ 



2. . 3 



15, 



16"; 



IT. 



18. 



DIVIDE A INTO B GIVING C. 
Before: A B C • ' 
' 3 15 100 

Alter: - „ 



DIVIDE A B GIVING C rDuNDED. 
]^efore: A"^ B C 



After: 
Before: A 



11 



B C 

■ 346 562 



Af te r : _ ^ • 

SuS^TRACT A FROM B 

Before; A ^ B - 

" 8 ' "2 " 

After:' 



19. 



20. . 



iMULTIPLY X BY , Y. 
Bdfa^^r A ' 1^ s 
. - ,8 .009 

Afte r 

"muutiply u]^its by.pric^ giviisjg cost. 

' p^rice/ -. cost 



Before 



UNL 




f. '147 



■ 4444444 
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SECTION A 



1.* wmCH OF THESE ARE NOT ACCEPTABLE SEQUENCES OF 
VERBS, WHEN EACH IS ASSUMED TO APPLY TO ONE FILE ?' 

A-. READ, READ, ' ^ 

B. OPEN, READ, CLOSET • . ^ 

^ c. OPEN, acc;ept, CLOs?:. 

• D. OPEN, DISELAY, CLOSE. 

' -.» 

2 .' IN A STATEMENT SUCH AS DISPLAY FINAL-TOTAL UPON 

PRINTER, WHAff IS THE WORD PRINTER CALLED? HOW 
XS THIS MADE TO CORRESPOND T9 A PHYSICAL DEVICE^ 

3 . CAN A SINGLE DISPLAY BE USED TO OUTPUT BOTH A DATA 

ITEM AND A LITERAL? 

4. CONSIDER THE FOLLOWING SENTENCE: 

A. DISPLAY @JOB FINISHED.®. HOW UAJSfY PERIODS 
WOULD BE PRINTED? 

B. DISPLAY @THIS,IS A@, QUOTE, @HORSE@, QUOTE, 
EXACTLY WHAT WOULD BE PRINTED? 

5. -MUST EVERY FILE HAVE A LABEL? 

6. TRUE OR FALSE? ' . 

A. AN OPEN MUST ALWAYS PRECEDE THE FIRST REA£> 
OR WRITE FOR A FILE . 

B. IF THERE IS ONLY ONE READ FOR A FILE, THE AT END 
"OPTION" MUST BE WRITTEN. ■ • ' 

.7. WRITE COBOL STATEMENTS TO DO THE FOLLOWING: 

A. ' THERE ARE DATA ITEMS IN STORAGE NAMED THi^NS- 

ACTION-QUANTITY AND QUANTITY- ON-HAND. WRITE ' 
A STATEMENT THAT WILL MAKE THE VALUE OF 
QUANTITY- ON- HAND THE SAME' AS THE VALUE OF 
TRANSACTION-QUANTITY; LEAVING THE LATTER ■ 
yNC HANGED. ■ ■ \' 

. ■ • ■ 

tr — ; 

B. ' THERE IS A DATA ITEM NAMED COUNTER: IvIAKE ITS 

NUMERICAL VALUE EQUAL TO 1 . . ^ • ' ' 

' . • i , • ■ . ■ • 
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THERE IS A 6ATA ITEM NAMED READING: ^OVE ffeE 
CiiARACTERS PAGE NUMBER TO IT. . 



•MAKE THE NUMERICAL VaLUE OF THE ITEM NAMED 
HOW-MANY*ZERO. " " , 



DIVIDE THE VALUE OF THE ITEM NAMED TOTAL BY THE 
VALUE OF THE ITEM NAMED NUMBER, WITH THE QUO- 
.TIENT BECOMING THE NEW^VALUE OF THE itEM NAMED 
AVERAGE. , . 



SECTION A 



Design a flow chaiA (block diagram) that represents the reading of 
10 cards from the card reader and do the 'following: 

Print the 10 tarda in the order read. '. - 




SET 

•CARD eOUlNTER 
= 0 



ACCEPT 
CARD ' 



I 



ADD 1 TO 
CARD GOUKT 



DISPI4AY / ^ . 
CAR]p INi'ORM^TION 
ON 
LINT] 




NO 



EN 

CARD 
ER EQUAL 

' YES 



Only print cards 9 .and' 10. 



.V 



Prini? cards in the -reverse order read. 
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... SECTION B ■ • . . . ; 

''Read aii vmknown number of cards from the card reader and write them 
on the printer. It is known that the last card contains all zeros in the 
reading field and is not to be printed. 

■ . • . ■ ' ? 
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SECTION B 



Given the following information: 

1\TEM-NAME Long Eared Lop Nosed Nut 
Quantity: 526420 . ^ ^ 

Value-per-tmit: 50 
Total -value: ^ 

ITEM: 14K Plated Lock Washer 
Quantity: 25 
Value per unit: 5350 
Total value: ? 



J 



Calculate the total value of the ^^Long Eared Lop ^osed Nut'' and the 
14K Plated Lock Washer. 



Total value ' 

l;e,l,n,n 



Quantity x ^^^^ = 626420 x 50 



unit 



526420 X 50 
26321000 



Total value 



14K^P ,L, W 



- i>i. value. 

- Quantity x — rr- 

' unit 

- '^5 X 535g^ ; 
^= 133750 



Draw « flov^ chart (block diagram) for^a computer program to do 
tl^e calculations of Part A. (See next page.) 

Study the COBOL .program on page 127 ot Spitzbarth that does these, 
calculation^. ' * 

■ » * * 

Sho-vj/ how the printed results of thij^ program look on the printer 
.(see, next page) . " . " ^ 
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B. Flow chart of program on page 127 
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•XTtn-KiRfne 



SlOf<6 VT. »N 








r 

* 














5.9 



stcr ^ 



Output oj^ the printer has the following format: 



00 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 if l6 17 J8 19'2Q 21 22 23 24 

'LOP NOS'ED NUT 



Line 1 LONG EARED 

Line 2 2 6 3 2 1 0 0 0 

Line 3 14K PLATED 

Line 4 001 33750 



LOCK 



W A S H E R 



\ 



90 



SPCTION B 



\ 



Compose a flow chart that is designed to calculate the pay of all em- 
ployees. The employee number and the pay received for the number 
of hours worked are to be printed on the printer. The employee num- 
ber and the number of hours worked are rvead from the card reader 
in the foUtiwing order: 



.Card 1 
Card 2 
Card 3 
Card-, '4 
Ca:rd 5 

Card 6 

t I 

I I 

I I 

I I 
Card N 



15293 



40 



15896 



48 



12345 



26 



0000 



Employee No. is 15293 
No. of hours worked 
Employee No. 15896 
No, of hours worked 



It 

n 



The number of employees. is unknpwn," but we do know the last card 
contains all zeros. Also the rate of paylfor alKemployees is $2 per 
hour . I 





ACCEPT 
EMPLOYEE- N<b 




IS \ YES 
fUMBER ^ { STOP RU 




ACCEPT' 
HOURS 



VDISPIAY 
EMPLOY^IE- 
NO 




I 




IS PLAY 
PAY 




MULTIPLY 
HOURS BY 
$% GIVING PA' 



G-15 



SECTION B 



Design a block diagram (flow chart) to do the following: 

Read ^unspecified number of cafds from the card reader where the 
odd numbered cards represent an employee niimber and the even 
numbered cards represent houra. worked. That is, each card con- 
taining sSin employee's employee* number is followed by a> card con- 
taining the niimber of hours that the corresponding employee worked. 
The number of cards is unknown, but we have placed a card contain- 
ing all zeros as the last card. 

\Display on the printer employee number followed .by th# number of 
hours that the employee worked. If an employee ..worked less than 
10 hours, then he has been loafing on the job. Therefor^^, we also 
Want threefcasrds punched out. The first will contain his employee ' 
number. The second will contain the number of hours he worked. 
The third will be a statement telling him'to "ear^'more money. 1' 



ERIC 



X.PUNCH / 
jEMPLOYEE^^ 

Vumbeh' 




ACCEPT 
EMPLOYEE 




YES 



^ STQP^"^ 



ACCEJ^T 
tlO.OF HOURi3 
WORKED 



NO 



GR 






^ YES 


\ PUNCH / 
\ NO. OF / 
\riOURS / 
^ORKE9 


\ PRIl^T / . ^ 
kMPLOYDE • ^ , 
' ,'YjUMBEi( 






\ PUNCH / 
VIESSAGET 


\ PRiisfr / V 

\ NO, OF / 

\hours a 


> , 


9^ > — . ^ — 



0 ♦ 



1 



G-i6 



SECTION B 



DesigA a card setup and flow chart to do the following: 

'Print thfe employee nvimb.er, employee name, address ajid salary 
based upon thte nximber of hours worked for each employee. You . 
can read the employee's number, employee -name , address and , 
number of houts worked firom the card reader. You- know how' 
many employees there are. You know the first Sa Employees re- 
ceive .%Z per hour and all the others receive $2.50 per hour,. 

If you knew how many emptloyee^tB^e were each day but the num- 
ber changes from day tot^day, Ihen how would you design the card 
setup and flow. chart. ^ 



- \ 
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APPENDIX H 



COBOL Programming Assignments - Data Processing Course 
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COBOi. PROGRAMMCNG - CASE STUDY 10 

SECTION A 



The pui^pose of this case study is to write a simple payroll program. 
For the sake of simplicity we will assume we have a master card, and 
a detail card for each employee and that the master card for each / 
erinployee immediately precedes his detail card» Assume th6re is 
no master card \^thout a corresponding detail card and vice versa,* 



The format for the master card is as follows: 



COL. 



-4 



5-14 
is""-!? 
18-24 

27-25 

29-35; 

36-^ 

4l/46. 

4*^-50 ' 

51-52' 

53-61 



DESCRIPTION „ 

EMPI.OYEE NO 
EMPJUOYEE NA2^ 

'LAST 

INITIAL * 

SPAdES 

DEPARTMENT CODE 

TAX CLASS 

YTD GROSS 

YTD EICA 

YTD WITHHOLDING 

HOURLY RATE 

WEEK 

SOCIAL SEC. NO.' • 



FORMAT 
9999 

A(10) 

4(3) 

99 

99 . 

99999V99 

999V99 

9999V99 

99V99 

^9 

9(^) 



The format for the detail card is as follows.- 



1-4 
10-11 
20-21 



EMPLOYEE NQ^. 
HOURS WORKED 
WEEK ' 



99.99 
99 

99 - 



To produce a payroll register ,>the required calculations are as foljows 

.1.. , BASE PAY =^ BASE-REGULAR HOURS X HOURLY RATE. . 

- . . . ■ ^ t ■, - 

2, OVERTIME PAY = OVERTIME HOURS X HOURLY RATE.X 1.5 
WHERE' OVERTIME IS ANYTHING OVER 40 HOURS. 



J- 



H-2 



3.. GROSS PAY c BASE PAY + OVERTIME PAY. 

4. WITHHOLDINGTAX = (GROSS PAY = (TAX- CLASS X $13.00) ' 
' X 18%. ■ . ^ , 

5. PICA = 4% OF GROSS PAY IF YTD GROSS IS LESS THAN $4800. 

6. .NET PAY = GROSS PAY -'FICA - WITHHOLDING, 

7. NEW. YTD GROSS OLD YTD GROSS + GROSS. 



8. NEW YTD PICA = OLD YTD FIG A + FICA. 

9. NEW YTD WITHHOLDING = OLD YTD' WITHHOLDING + 
WITHHOLDING. • 

10. THE CALCULATIONS FOR DEPARTMENTAL TOTALS ARE 
ROUTINE AND WILL NOT BE .SPELLED OUT. ' * 



V 



I ' • SECTION A . , • 

OUTPUT: . ' : ^ ■ ■ . 

SOC SECNO TC YTDGROSS DEPT XNDO ■ NAME, RATE REG OT. GROSS FICA WITH. . NET 

xxxxx xxxx X xxxx,xx XX xxxx X xxxxxxxx x.xx XX XX X3QC^ x.xx XX, XX tex.xx 

xxxxxxicxx x XXX. XX XX xxxx X xxxx x.xx xxxx "^dcjQc x.xx x.xx . xx.xx 

■ • * • ' • . ■ ■ ■ ;.. ' 

^xxxxxxxxx. X. xxxx. XX XX xxxx XXXXXX > x.xx XX' XX XXX.^CX x.xx 36C;XX xxx.xx 

13EPT TOTALS. XX $XXXXX. XX f XXX XX $XXX.XX $X..XX $XX.XX $XXXX.XX 



Each dollar knd cents figures are to be edited by^ inserting a decimal point 'aa4 suppressing leading zeros in the 

department totals . ' 

• ' ' ' ' ' / * . • 

Start each department's .payroll register on a'new sheet >Rrith the appropriate ixeadings . Due to the amount of space 
required f pr the headings; it'wili'be necessary to prepare a carefpl printers spacing chart. 

..." • ' / ■ •■ ' 
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COBOL Pi^OGRAMMING 
SECTION A 



EDITING: 



^ SOURCE AREA 

PICTURE SAMPLE DATA 



1. . 999999 

2. 9999V99 

3. 9(4) V99 

4. 9'999y99 

5. 999999 

6. 9(6) 

.7. 99999V9 

■8. S9999V99 

9. S9(6) 

10. 999^99 



' 123456 
• 123456 
000123 

■ 000123 
000100 
. 000008 

t 001234 
001234 
123456 
123456 



RECEIVING AREA 
. PICTURE EDITED RESULT 

$ZZZ,ZZZ.99 ^ 



y_ $ZZZ,ZZZ..99 
vJ$$$$,$$$.99 
$$$,$99.99 

, $$$$,$9$. 99 

-999^99 
9B(4)9(5) . 



$bbl,234.56 



$08.-po 



REVIEW: s ■ 

11. Subtract A B C from D giving X, 



-12 
f 



13 



Before,: 
After;- 



2 5 3 



8 



Divide A into B giving Q tound^ed. 

1 

4 



Before ; 
After: 



.19 



I. 



The nature of CODASYL>would be best described by oi*e of the 
following statements* Select the one^ 

, ■ ^' ■ ' ';• ■ ^ 
a) Jhe group which n^iade the attempt t<l generate the COBOL 

^ . language . / / ' , . 

b)v'The meeting at V/M'ch the initial specifications for^a conunon 
. /.. biisijrjess oriente4:'ianguage was devised. 



_;c) 'Th> organizaiioa^-which created COBOL. 



..." . ■ ' * 

• ■ • ' 

14. Match the phrases in Colttmn Y^^th the related symbols'in 
• . Column X, 



COLUMN X " *. COLUMN Y. 

■ « ' '. , " ' ' 

_a) data-name-1 A. Key reserved word 

» OB J£C T-t:OMPUTER B. Optional reserved word 

.cf MEMORY SIZE C. Non- re served words 

A) ' * D. Optional COBOL statement 

HONEYWELL-EOO . I" 

_e) NO SEGMENTATION E. Choice must be made 



15, Check the following literals as either NON for non-nmneric and 
. N for numeric , . ' . ^ 

» H 

^a) @lt}4^S@ ' * ■ . ; 

b ) 12345 

c) @12345ABC@ • • ' * 



d) ©THIS IS A NUMERIC LITERAL® 

e) +157.567 

£) @03-30-70@ , V ' , . • 

^ ■ - 

16. Choose the entry in Column Y which ;pr ope rly describes an item* in 

Column X. ' ^ ' 

Oq>LUMN X * ' ' COLUMN Y 

\ 



a") 


TA DIVISION . 


A. 


Provides docximentation, 
program nanje, etc* 


b) 


■ENVIRONMENT DIVISION 


B, 


Provides equipment con- 
figuration and assignments 


c) 


PROCEDURE DIVISION 


C. 


Identifies all of the I/O 
areas. 


d) 


IDENTIFICATION DIVISION • 


D. 


Includes all of thfe instruc- 



tions necessary to solve a 
given problem. ^ " 



ERIC 
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SECTION A 



PAGE 312 
APi'.ENDIX I 
CASE STUDIES 



CASE STUDY # I7 
CASE STUDY # 2 
CASE STUDY # 3 
CASE STUDY # 4 
CASE STUDY # 5 
EXTRA" CREDIT 



PART I 
PROBLEM 1 

t 

PROBLEM 2 
PROBLEM 5 
PROBLEM 6 
DITTO 

PART U 



PENCIL PROBLEM 
COST PROBLEM 
CONVERSION TABLE 
SIMPLE INTEREST 

I 

NELLA, ILMO, JAY 



CASE STUDIES TO BE ASSIGNED AT A LATER' DATE. 
Study Chapter Nine. FILE USAGE Page 185 

PROGRAMMINC^ INFORMATION FOR H- 200. • « . 

IDENTIFICATION DIVISION. ' 

PROGRAM- ID. PROB-OSIO. . . . 

AUTHOR. NAME. ' ^ 

' ENVIRONMENT DIVISION. . • 

. CONFIGURATION SECTION^ • ' - . " ' 

, . SOURCE-COMPUTER. H-200-SPECIAL.. 

OBJECT^COMPUTER. H-200, -SUPERVISOR, J^JO SEGMENTATION. 
SPECIA5^- NAMES. 
■ " PAGE IS TO- NEXT- PAGE. 
INPUT-OUTPIJT SECTION. , 
FILE -CONTROL. T 

SELECT PUNCHED -CARD- FILE ASSIGN' TO CARJ^-I^EADER Ei 

SELECT REPORT- FILE ASSIGIil TO PRINTER 
i-O-CONTROL. ./'^ ' 

APPLY H-200-SPEC1AL ON PUNC itED- CARD- FILE . 
DATA DIVISION. 
FILE SECTION^ 
FD, PUNC HED^ARD- FILE, 

LABEL RECORDS ARE STANDARf), 

VALUE OF IDENTIFICATION IS @ @, 

DATA RECORDS IS IN- PUT.; . . '\ . 



FD REPORtr-FILE LABEL RECORDS ARE OMITTED, 
DATA RECORD. IS PRINT-JuINE. 



PROCEDURE DIVISION. . . ' ' 

OPEN INPUT PUNCHED- CARD -FILE, OUTPUT REPORT- FILE 



H-7 



COBOI- PROGJUVMMING - STUDY 1, E.G. 

' SECTION A , 



TKe foUowiiig program is extra credit. 
Required - FLOW CHART 

. V , CODIJ^G SHEET - I 

• , PRINTING CHART ' * ■ ' - , 

■ . ■ ., ' ■ ^ • ■ ^ ■■ ■ /. ri 

Write a program to ire ad a deck of cards and print the inforaaatipn on 
the printer, SRi|iio the top of a new page before begiaaiag^d also 
if a fon^ over£k>w occixrs. 



Th^ f orm^tt qf the cards is as .follo^Srs: 



6-20 

ai-29 
30 

31-39 
40-41 
50-54 



INFORMATION 

ID NO , > 

NAME ' 

LAST 

FIRST 

MIDDLE-INITIAL 
SOC-SECURITY-NO 
OCCtJPATION-CODE 
PAY- RATE 
DEPARTMENT 



59-60 ' 
The- format of the printout for each card is as follows: 
LINE 1: 



10-14 
18-28 
35-62 



LINE 2: 

11-12 , 

16-17 

20-25 



• I 
IDNO 

SOC-SECURITY-NO 
NAM^: 

FIRST 
' MIDDLE-INITIAL 

LAST 



OCCUPATION- CODE 
DEPARtMENT 
PAY-RATE 



coihl 



FORMAT 
99999 - 

A(15) 

A(9) 

A(l) 

9(9) 

99 

99V999 
99 



99999 

999-99-9999 

em 

A(9) 
bA.b " 
A(15) 



99 . 
9^ 

99.999 



Double space bfetwe en" every two line c cjmbination : single space within 
the two line combination. Suppress any leading zeros in pay rate. 



H-8 . 



Rewrite WRITE IBM-360 program for H-200. 



IDENTIFICATION OlVlSIOlS. ' ' 

PROGRAM-ID. » 'EXTRA CREDIT' 

AUTHOR. TEfAMO. . o . 

ENVIRONMENT-DIVISION. • . 

'CONFIGURATION SECTION. 
SOURCE -COMPUTER. IBM-360 E25. 
OBJECT-COMPUTER. 'IBM-360 E25. ^ 
INPUT- OUTPUT SECTION., ... 

FIX^-CONTROL. 

SELECT IN- FILE ASSIGN TO 'SYS0O9' UNIT-RECORD 2540R. 

SELECT OUT-FILE ASSIGN TO 'SYSOOP UNIT-RECORD 1403. . 

I-O- CONTROL. ■ • „ 

APPLY BOTTOM-OF-PAGE TO FORM- OVERFLOW ON OUT-FILE. 

DATA DIVISION. " - 
FILE SECTION. 
FD RECORDING MODE IS F . 
01 EMP-REC. 
02 ID NO 
02 INNAME. 

03 INLAST 
03 INFIRST 
03 INMI 
02 INSSNO. 
03 ONE 
• 03 TWO 

03 THREE 
02 INOCCODE 
02 FILLER 
02 INPARATE 
02 FILLER 
02 INDEPT 
• 02 FILLER 



PICTURE 99999. 

PICTURE A{15). 
PICI^URE A(^) . • 
PICTURE A(l). 

r 

PICTljRE 999. 
PICTURE 99. 
PICTURE 9999. " . . 
PICTURE 99. 
PICTURE X (8). 
PICTURE ^9V999^ v/^' 
PICTURE X(4) , / 
PICTURE 99. 



PICTURE X{20). 

FD t)UT-FILE DATA RECORD IS OUT-REC LABEL REQORDS ARE OMITTED 
R ECORDING MOD E IS F . 



01 OUT-REC 

WORKING-STORAGE SECTIO]N(. 
01 PRINT- LINE- 1. 
02 FILLER 
02 ID-OUT 
02 FILLER 
02 SSOUT. 

03 SSONE 

03 H¥P-1 

03 SSTWO 

03 HyP-2 

03 SSTHREE 
02 FILLER 



PICTURE X(I^|) . 

PICTURE . 
PICTURE 99999. 
PICTURE X(5). 

PICTURE 999. 
PICTURE X(l). 
PICTURE 99. 
PICTURE X(l). 
PICTURE 9999. 
PICTURE X(5). 



103 
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CASE STUDY 
SECTION A 



Write a pro|ram to reid a deck of cards and print the infoirmation on 
the printer. Skip to th^ top of a new page before begitxnikg^and also if 
a form overflow oq curs V • /" 

The format of the cards is as follows; 



COL.. 
' 1-5 

6-20 

2i-29 
30 

31-39 
40-41 
50-54 
59-60 



INFORMATION 

IDNO\ 

NAME ' 
LAST 

FIRST *■ 
' MIDOLE- INITIAL 
gOC-SECUklTY-NO 
.OCCUPATION- CODE 
PAY- RATE 
0EPARTMENT. 



The format of the printout for each card is as follows; 
LINE 1: 



10-14 
18-28 
35-62 



LINE 2: 

11-12 
16-17 
20-25 ^ 



IDNO 

SOC-SECURITY-NO 
NAME 

FIRSX ^ 

MIDDLE-INITIAL 
LiVST 

OCCUPATION- CODE 
DEPARTMENT 
PAY- RATE 



FORMAT 
99999 

A(15) 
A(9) 

A(l) ' ■ 

9{9) 

99 

99V999 
99 



99999 

9^9-99-9999 

A(9) 
bA.b 

A{15) . 



99 
99 

99.999 



Double space between every two line combination; single space withinN 
the two line combinati«n. Suppress any leading zeros in pay rate. 



COBOL PROGRAMMING 

\sECTiqi^^ A ; 



GIVEN: 
REQUmED; 



Input d^ta' carcis as described izi Case Study Si. 

Considering IZQ position for a pajmt area, prepare 
the following report: , - 



NELLO. 

1 ' 

XXX 
XXX 
XXX 
XXX 



COBOL CASE STUDY 7 
. \ ^ ILiLMO . ^ 

XXXX ' 

XXXX 
- XXXX 



JAY 

XXXX 
XXXX 
XK>tX 
XXXX 



XXX 
XXX 



XXXX 
XXXX 



XXXX 
XXXX 



TOTAL 



XXXX 



AVERAGE .XXX 



XXXXX 



XXXX 




(CURRENT DATE) . 
{FO/fkAT MMM DD YY) 



I 

INSTRUCTIONS 'TO CONSIDER FOR THIS PROBLEM: 



READ' 
^ WRITE 
COMPUTE 



SECTION B 



A. Draw a flow chart for each problem. 

Bm ^ Develop a table of all data-* names and show the contents of e4cli 
data '-name af tea: the execution q£ each instruction. 

C« Some' problems have additional questions; answer them* 

- • - ' ■ ■ 

8 12 . ' 

START!. 

MOVE' 156 TO INT. ' 
(1) DIVIDE 12 INTO INT GIVING DOZEN-INT. 

" Ai)D'4 DOZENrINT GIVING DOZEN -INT. ■ - 

STOP'-S^, " 



8 12 , . / 

BEGIN- HERE'-'AND-NOW. . . 

MOVE 43 TO HOURS, < 
ADD -7 HOURS GIVING BONUS-HOURS. \ 
jZ) MOVE 3.50 TO RATE. . > 

MULTIPLY HOURS BY RATE GIVING OBpINARY-PAYx 
MULTIPLY BONUS-HOURS ,BY RATE GIVING BONUS-PAY. 
' ^TOP RUN. 



(3) 




8 12 , • . 

begin/ , * ^ " 

- MOVE 5 TO LENGTHI . 
MOVE 13' TO WIDTH!. 
MOVE 20 TO LENGTH2. . 
MOVE 14 TO WIDTH2. 
MULTIPLY LENGTHI • BY WIDTH! GIVING AREA 1 . 
MULTIPLY LENGTH2 BY WIDTH2 GIVING AREA2. 
SUBTRACT AREAl FROM AREA2 GIVING SHADED-AREA. 
'ADD LENGTHI LENGTH2 WIDTH! WIDTH2 GIVING PERIMETER! 
MULTIPLY LENGTH2 BY 2 GIVING 2TIMES- LENGTH2 . 
MULTIPLY WIDTH2 BY 2 GIVING 2-TIMES-WIDTH2 . ^ 
' ADD 2TIMES-LENQTH2 2 -TIMES- WOT H2 GIVING PERIMETER2, 
STOP RUN. 



H-12 



8 U 

OKlll. — " 

MOVH 6 TO NUMBER-OF-GANDtES. ' ' . - 
OK12. 

MOVE .05 TO PRICE-OF-EACH. . 
MULTIPI^Y NUMBER- OF -CANDIES - • . 

(4) BY PmOE-OF-EACH GIVING 
TOTAL- COST- OF - C AND Y . 

"IF TOTAL- COST-OF- CANDY IS GREATER THAN .25 MOVE, 4, 
( 1:0 NUMBER -OF -CANDIES ... , 

GO TO OKi2. 

SUBTRACT' .20 FRPM TOTAL- COST- OF-CANDY. 
STOP RUN.' i ' . ^ . * 

" ; ' '■ — ' 

. ■ I : ' 

8 12 ■ 
OKll. ■ ■ ' ' • • ' . ^ 

MOVE 6 TO NUMBER- OF- CANDIES, ^.^ ■ 

OK12. ■ .' , 

- MOVE .05 TO PRIGEi:OF-EACH. 

MULTIPLY NUMBER -O^- CANDIES BY 

(5) * PRICE-OF-EACH GIVING- TOTAL-COST-OF-CANDY. . 

IF TOTAL-COST'-OF-CANDY IS GREATER THAN .25 MOVE 4 
TO NUMBER-OF- CANDIES.^ ' . . 

.GO TO OK12. * * ^ 

SUBTRACT .20 FRO^^I TOTAL- COSr-OF-CANDY. . " 

STOP RUN . ■ • , • 



8 12 - , 

<riTLE- ROUTINE. 
(6) MOVE ' EMPLOYEE AiiNUMBERAAPAY66' TO TITLE. 

DISPLAY TITLE. 
STOP RUN. 



8 12 ' ' . ' 

TITLE -ROUTINE. 
(7) DISPLAY 'EMPLOYEEA6NUMBERA^PAYAA' . 

■ STOP RUN. 



8 12 

BEGIN. 

MOVE 5 TO A. 
(8) MOVE 4 TO B. 

ADD A B GIVING 
STOP RUN. 




Find the^'error(s) in' the foUowiaflf prpgrame. (Also <Jo A,. B', C) 



• 8 12 , 
. TITX^-ROUTlkE. 

DISPLAY 'EMPLOVe^EAANUMBER', 
:• GO TO'.XENTLY. // ' , . 
' MOVE 15 TO X. IT '". 

MULTIPLY .X BY GIVING X. 
'.XEl^TRY. 

STOP RUN . 



V 



8 12 
/ HEAD. . 
' ■ ~ STOP RUN. 
(10) move's TO 

-MULTIPLY X. $,Y 2 GIVING X.' 
GO. -To HEAD./ 

" ^ — t ' • U' — 4- 



8 . 12 
XYENTER. 
. - ' GO TO'x/-^ART. ' 
XYZSTARRT. / 

MOVJ: S td'Y. . , ■ 

♦ (11) MULTIPLY y BY'W-' GIVING Y. 

STOP/RUN. 
X-START. 

• MOVE 2 TO W . 

GO/TO XYZSTARI^. • 



8 /12 " 
,XYENTER. 

/GO TO X-START. 
XYZSTART. » 
/ MOVE 5 TO Y . 
(12) \t MULTIPLY Y BY W GIVING Y, 



STOP RUN. 
/X-START. 

MOVE 2 TO W. 
GO TO XYZSTART. 



8 12 
• BEGIN. 

ADD A B GIVING C. 
(13) MOVE 5 TO A. • ' 
MOVE 4 TO B. 
STOP RUN. 



m * 



8 12 y , . 

^ . B^GIN. / 

MOV>p ^ TO A.r 
. (14)'' MOVE' 4 TO B*. • . 

r ' AD£> a B C- giving C . 
" SXOPRUN. 



1 



— — — — ^ ^ 

'\ 8- 12 . \ 

V BEGIN. • ' r. % 
-STOP RUN., . ^ f 
'(IS) MOVE 5 'TO A. * 
MOVE 4-^0 B. 
ADD A B GIVING C. . 



4, 



.8 12 ^ • , 

. DATA DI-ViSION. , 

- WORKING- STORAGE SECTION. • 
01 INT PICTURE 99999999 

01 DOZEN-INT PICTURE 9(8). " 
PROCEDURE DIVISION. - * • . 

(16) START 1.. .^7 . .. ■ ; 

ACCEPT INT. ' " ■ " 

DIVIDE 12 INtO INT GIVING DOZEN-INT. 
ADD. 4 DOZEN-INT GIVING DOZEN-INT. 
DISPLAY DOZEN-INT. , 
. . . STOP RUN. 



■ /t 

'A 

1 ^- 



CC 

s 

-I 

00000156 *- Data Card 



8 12 ' 
*' DATA DIVisION . ' 
WORKING- STORAGE SECTION. ^ 
01 HOURS ', PICTURE 99. 
01 RATE PICTURE 9V99 . ^ 
01 BONUS-HOURS PICTURE 99. 
01 ORDINARY-PAY PICTURE 999V99. 
01 ^ONUS-PAY PICTURE 999V99, 

PROCEDURE DmSION. . . ' \ 

(17) BEGIN-HERE-AND-NOW. . 

MOVE. 43 TO HOURS. ' 
' ADD 7 HOURS GIVING BONUS- HOURS. 
- MOVE 3^ "lUD RATE. 
MULTIPLE HOURS BY R.ATE GIVING QRDINARY-PAY . 
; MULTIPLY BONUS- HOURS BY RATE GIVING • 
BONUS- PAY. 
* *- DISPLAY ORDINARY- PAY. 
DISPLAY BONUS -PAY. 



STOP RUN. 



^09 



DATA DIVISION. ' . • 

WORKING-STORAGE SECTION.' •- 

Ql 'NOl PICTURE ,99 ; ' " • . 

01 N02 PICTURE 99 . * ' , 

^-01 PIN 'PICTURE 999, * ' ' '. 

' PRbCED4;SlE DIVISION. . ■ . 

.. START. ^ . / . - 

MOVE 5 TO N02. , . 

... . Movir 1 TO Noi. . • ■ . • ^ . 

*OUTPGM. ^ ■ ■ . ' 
(18) IF-NOl J^S LESS THAN 25 AtiB 5 NOI • ' * 

GIVING NO 1 . ; ■ 

ADD 5 N02 GIVING N02 . " ^ i . 

'MULTIPLY "iSFOl BY N02 GIVING PIN.. ^ " 
" ' IF PJN IS LESS THAN 200 ' • 

GO TO OUTPGM, . 
^ DISPLAY NOi. ^ . 

DISPLAY NO^ . . 
. -DISPLAY PIN. ■" ; 

STOP RUN.. ' , ' 

Also what pumbers are printed on ti^e printer and in what order? 



What nuinber(s) is (are) printed 6n the printer. (Also do A, B, C) 

'8 12 ' 

DATA DIVISION. 
WORKING -STORAGE SECTION. 
01 THE-CARDrIN PICTURE 9(5) 
PROCEDURE DIVISION. 
START. - 
, ' ACCEPT THE'-CARD-IN. 
LOOP-CUTPT. 

IF THE- CARD-IN IS GREATER THAN 25 SUBTRACT 9 
. FROVl THE -CARD-IN GIVING THE-CARD-IN 

DIVIDE 10 INTO THE-CARD-IN 

DISPLAY THE-CARD-IN 

GO TO FINISH. 

ADD 5 TO THE-CARD-IN. 

GO TO LOOP-OUTFT. 
FINISH. . 

STOI^RUN. • ^ 



'ccl 

^ 00004 - THE-qARD-IN 



. Uo 



• • ' H-200 COBOt. F CoMPILATtnN RECORD 

,. . ' ^ - ( 

' EXTfRNAL identifications AVERVb RUN l^JJ, RUf^ O^Tf ! n7/29/70» 

i OB.»ffCT PROGRAM vTsiBILlTY! . VISslBLE TO AlL. . ' ' " " , 

^ CdMPtlER VERBICN: 01. d VISIBILltys ^ ' SOURCE PRSG. AND t.l8R 

,TMFRp 'ARP. 1 WARNING DIAGNOJjTICS, . - 

OBJFrT riMF .MFMnRY REQUIREMENT IS 012537 ?005<»7l DECIHALJ CHARACTERS. 



1 V 

1 FRDJ-ECT 






y/Z2/7o\ 


1 :£rv%TR\JcroR 





112 



'diags.-, sf^''No',;|p§|||f 



J' 113 



OonlO 
000520 

00nn30, r^ . .vv«v>|- , 
0 0 n n*0. ,^,\',>^^0p;, . 
OOOnSf s^A-Vi^O^^,. ' 

'Q; 



ICENTlFiCATiQN» AV*«yE' . «UN NOs , . RUN DATE! 02/^9/70 
• <OBcC' SOURCE i-ANfiUAGE -STATEMer^T '. 
DENT IFI CATION 'DIVISION.. * 3" ■ " ' . 



OOnnSj^t^'.': 

. -ooot 
. ooftiiifi' 

■ . . ocrnct|o .\) ■ 
' ^ oooi^o / 

. OOoiSQi'-. 

^:'00O?30 ,, . 

' ■■(* t)0'0?4>0 
f..!- 00O5 5(^ 
Ivi 0(^0960 ■ ■ 
000970 

VJ:' 0 oris 9 9 : 

D6i>A2s0' 
^ ■''^ 00rt^^30 

■ coarse 



00. 

0000 <v- 
o'ooo '-t.' 

0000?: 

6ood' 

OOQ0 

oobd 

. oood'-. 
0000 

POOO 
0000 
000 0 ' 
0000 

oboo 
000b 
0.900 
• ooo'o 
: 01^05 

',0000 
VOOOO 
■0000 . 
•0000 
.OOOQ 
'0000 



PROGRAS-ID. Two. . , 

AUTHOR. EtlA. 

ENVIRONMENT "Di VISION. • ' 

GONFIGjRATfON SECTION, 
. SOURCE-COMPUTtR. H-200{.SPECIAL. 
OBJECT-COMPUTER. H-200. SOPEHVISSR* 
HO SEGMENTATION. . 
^ DATA DiVlbiON. ■, . 

WORKING-STORAGE SECTION. 



77 
01 



•01 



TOT-COST 

input-oata-card, " 

02 ■ Pounds 
52 .c0st-pe«-pound 
out-put-dc. " 

02 FILLER 

PMOUNDS • " 
FILLER 
UN.IJ-COST . 
F^ILLER 
TOTAL-CO^T 
HEADlNC-I. " 
02 FILLER . 
M£AD-»COL-l 
Fli.LER 
N£Al;-C0L'-2 
FILLER • 
HEAD*.C0L-3 
PRCCEOvlPH DIVISION. 
/BFCIN/PRQG SbCtlOM 0, 
PAR-1. -. 

DISPLAY hEADINCj-I.' 



01 



02 
02 

d2 

02 
02 



02 
02 
02 
02 
02 



PICTURE 999<9V99. 

*PICTUR€ 999. ' . , • -^i' . 
'PICTUR£ ^99V99. . ' 

PICTURE XUlV VAt^UE SPACES*. 
PI^TURg Z^9, • 
PICTURE X(23) VAUtlE SPACES, 

PICTUf^'EVC27)^VALUE SPACES. 

PICTURE S$SS<7««»9# ,1 

» ^ ■ ■. ' 

PICTURE XC30) VALUE SPACES*. . 

PICTURE X(6/ VALUE ;POUNDSsy^* 

PICTURE Xt26) VAUUE ^'SPACES/ 

PJQTURE X(9) VALUE 4 UN IT COST:^ 

P^iCTURE X{2d) VALUE SPACES. , 

PICTURE XUOV VALUE :TOTAL COST: 



Pip- 2. 

ACCEPT liNiPUT-OATA-CARO. , . ' 

IF' POUNDS IS EDUAL TO 0 STOP^rjOR:. ^ 
MULTIPLY POUNDS BY COST-PER-POUiar^ GiVl'NG T0T-C05T» 

wiJRNlNQi^';''^'HIC;« ORDER DIGITS. WILL BE TRUNCATED Ay OBJ£CT T|M£, 



oOn^s-.o 

QQC^OO 
9^49098 
99gj/g9 



0000 
0000 
0000 
OQpO 
0000 
0505 
0001 



. MO^E 'POUNDS TO PPOUNDS. 

MCvE COST-P^K-POUND TO UNlT-COST, 

MOVE TOT-COST TO TOTAL-COSTt 

DISPLAY OUT-PUT-DC. 

GO TO PAR-2# 
BE^IN/PPOCs/AT /BEQIN/PROG 
EJ^D COBOL 











T. Page J* 


001 


' ' ^ .' 


CBJ LOC 


TEAM4 


♦ 

• 


-- TEAM4. 




* TEAM4, 








TEAM* 




• - TEAM* . 




TEA*'.4 




TEAI*4 ^ 




TEA*<4 . 




TEAK4 • 


... m ^ 


TEAW4 


dO<.124 


»TEA«A 


004133 


■TEA»f<» 


004127 


TEAM4 


004133 


TEA^4 * 00<»270 




,004172 


TEAM* 


004175 


TE*|^4 




TEAM<> , 


rt ft z.. 1J ^ *5 


TcAM4 






UU<#£ rw 


TEAM.4 




TEffWi^ * 


• 004326 


TEAM4 


00<»33^' 


TEAW4 . 


004360 


TEAM4' 


004371 


TEAM4. 


004415 


TEAM4 


064427 


TEAM4 • 




TEAV^' 




TEA^^4 • 




TEAV^ • 




TEAM<^ 




TEAM4 . 




TEAH4 




3 7. 


.000033, 


TEAM4 




TEAH4 




TEAM4 




TEAM4 




TEAM4 





3» ' 

■ ^ 
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ERIC 



CQMPlLfR* .^ROU.F OUO . EXTERNAL J DENT IF I CAT I QN* *VE«VE 
' AOORtSSES. OP SUBROUTINES 'iNCtUDEC IH OojfcCT PR06«A^. 



mm NO: 



RUN £MT£! 07/29,J?0 



ADOsesS^ NAMf function 
'0b«6«5t'^«ULT 



i 



MULn5>tV EXECUTION. 
lyO WORK AREA, 
ACCEPT EXECtrrioN, • 
DISPLAY FXECUTIPN. 
DYNAMIC CHANNEi- ASSISKMENT, 
DEVICE BUSY OEUY. , . 

STAfT .AND* SC«AP CONT!?OL. 
INI-TrAUIZATlON, 
DEVfCE REA^SISijmEf.T. 
O10373 FILE?v ^ DEVICE REASSIGNMENT, . 
0115^6 sfoPTf SCRAPPING HALTS. 
^ ' . .' . POUNDS . • . 



.60?!^ EXiTi 
005633 ACCEPT 
0060?7 DSPPRT 
0062?l .ASIGN3 
, OOi^SO % DriAY 
' Cf0^6«i5 START 
0070'52, FILEOi 
0071?2 FILEli 



UNIT COST 



TOTAL COST 



PAGES O'OZ 



« « 



13 



SI. 25 



• S1.25 



i 



$15.00 



S16.2S 



u 



SI. 25 



$17.S0 



15 



Si. 25 



Sia.75 



16 



SI. 25 



S20.00 



17 



SI. 25 



S21.25 



116 



18 



SI. 25 



S22.50 



^CqMPlLERs COROL F 0.1.0 EXT£ftMAU lOE^Tl^ICATlONs AVERVE ^ NOs 



RUN DATES 07/28/tO 



OIASS. SE«5 NO XIB flO ..C 



Ofonio 
oonSao 
oonSsc. 

0(^60 

oonnso 

000ri90 

, oom'op 



0000 

oooo 
ooco 
6ooo 

0000 
0000 

oooo 

0000 

oooo 

0^00 



..d' CoSOl SOURCE LANSUAfiE STATEMENT 

IDENTIFICATION D4VISI0N# ' 

pFlo6RA'M*I0* NEUA-iLMQ^JAr* * ' 
AUTHOR. -JENKlNSi-MASON-TlM^, ^ 

ENVIRONMENT OIVlSlON.v ' 
.CONFlSURATlOir SECTlONt ^ 
SOuRCE-COMPUtER^ H-200-SPECIAU, 

OBJECT^CONPUTER. H»2oO* SUPERVlSORt NO SEGMENTATION. 
INWJTOUTPUT SECTION. * ' . 

FILE-C3NTRQL, *• 

SEUFCT^N-FILE ^SISN TO .CARD^REAOFR £..^_^_ 



I OBSERVE: THIS FILE^NAME IS ReP^'sE^^E^'^^' O^^^CT TIME PRINTOUTS AS «F1L£ 4% 

ooniio • OOOO selfc't out^file assign to psi^tfr r. 

I 'observe: 'THIS FIt,E-NAME I-S. REPRESFNTEU IN OBJECT TIME^ PRINTOUTS AS -FjLE 2% 



. 1000120 


. 0.000 • 


!-0*-CONTROL» ^ 








, 00nv3O* 


'oooo 


APPLY ^H.200-SPECIAL ON -! 


IN-FILE. 






^ ooni^o 


oooo 


QATA DIVISION. 








oonisQ 


oooo 


FILE SECTION. 








000160 


.oooo 


FO IN-FILE 








00ni70 


oooo 


UASEL RECORDS ARE OMITTED* 






ooni 80 


oooo 


VA^UE OF IDENTIFICATION 


IS : 






oor!90 


oooo 


DATA RECORD IS iN-DATA-j 


RECORD. 






oonpoo 


oooo 


01 IN-DATA-RECffRD. 




X(20). 




non^io 


oooo 


02 FILLER 


* PICTIJRF 




, ^ 0OC^2O 

oon?30 


' oooo 


02 NELLA-MO-IN 


fJICTURF 


9{3). 




oooo 


02 FILLER 


•PICTUBF 


X{7). 




oon^<*o 


oooo 


02 ILMO-ND-IN 


PICTURF 


9U>. 






oooo 


02 * ^ILLE?? 


PICTURF 


X(16)'. 




noo560 


6ooo 


X 02 JAY-NO-I)>i 
^ 02 Fl^LLER 


PICTURF 






000770 


oooo 


PICTURF 


X(26!, . 




00O980 


oooo 


FD OUT-FIlE 








000^90 


oooo 


'LABEL RECORDS ARE OMITTED 






ooo^oo 


oooo 


.'DATA RECORD IS OUT-DATA 


-RECORD. 


• 




oon^lO 


oooo 


01 OUT-DAtA-R£CORD. 








000^20 


oopo 


02 FILLER 


PICTURF 


X.{28) . 




000^30 


oooo , 


. 02 NELLA-NO-OUT; 


PICTURF 


9(31 • 




OOOV^s^O 


oooo • 


02 fiLLER 


PICTURF 


XC33). 




000^50 


Oooo 


02 ILMO-NQ-OUT 


PICTURF 


9U). 




000^60 


oooo 


02 FILLER 


. PICTURF 


XC26) . 






oooo 


02 JAY-NO-OUT 


PICTURF 


9U) . 






oooo 


02 FILLER . 


PICTURF 


X(22). 




• 0*00^90 


Oooo 


WOPKlNG-STORACijE. SECTION. 








orni»oo 


oooo 


01 HEADIf^GS, 






SPACES. 




oooo 


02 -FILLER 


PICTURF 


X<21) VALUE 


oon<*20 


Oooo 


02 HEADlNi-i PICTURE 


XilB) VALUE 


IJENKINS-MASON-TIMS:. 


000430* 


oooo 


02 FILLER 


PICTURF 


X{2i) VALUE 


SPACES. 


000^40 


oooo 


02 HEADINu.2 PICTURE 


XC125 VAI UF 


:CASE STUDY 




0004 50 


oooo 


02 FILLER 


PICXi^^E 


X(2n VALUE 


SPACES, 


000460 


oooo 


02 WEADIN3.3 PICTURE 


Xib) VATUH 


S COBOL;. 




*b00470 


oooo 


02 FILLER 


PICTURF 


XI225 VALUE 


SPACES, 


oon^^ao 


oooo • 


OL COL-HEADINGS. 




♦* 





ERIC 



PAGES 001 . 



TEAM2 
tE*M2 
t£AM2 

tEAM2 
TEAM 2. 
TEAM2 . 
TEAM2 
+EA)»2 
TeAM2 
t 

• I 



TEAM? 



3 oboioi * 



1 3 000102 



'TEAy2 - 
TEAM2 
TEAM2 
TEAM2 
TEAM2 
TEAM 2 
TEAM2 
TEAM2 
TEAM2 
TEAM2 
TEAM2 
TEAM 2 
TEAM2 
TEAM 2 
TEAM2 
TEAM2 
TEAM2 
TEAM2 
TEAM2 
■TEAM2 
TEAM2 
TEAM2 
TEAM2 
TEAM2 
•TEAM2 
TEAM2 
TEAM2 
TEAM2 
TEAM2 
TEAM2 
TEAV2 * 
' TEAN'2 
TEAM2 
TEAM2 
■TEAM2 
TEAy2 

xrAy2 



® 



00<»7<»Q 

00<»6<*7 

00<»&62 
00<»702 
00<»706 
0047^0 



005323 

005167- 

005172 ■ 

005233 

005237 

005271 

005275 

00S323 

00<t306 
00<.U3 
004l65 
pO<,2l2 

00<.226 
D0<»253 
00<t260 
00<.30«, 
00<»<i76 



118 



CcMPalER* CCROL F QUO - EXTERNAL IDBt^TIFieATlON«»AVERYE KUN NOS ^ RUN DATES 07/28/TP 
OlAGS SEO NO tlB NO C ' COBCU SOURCE LAN6UAG|'^STdT£M£NT 



Pace: ooa :06 



00fti90 • 


0000 


oonsoo 


0000 




0000 


^00^20 . 


oooo 




' Oooo 




0000 


^000^50' 


0000 




oooo 


000^69 


0505 


OOOsTO 


oooo 




• OOOO 




» OOOO 


oonkco 


OOOO 


OOOaXO 


Jl^OOO 


000i20 . 


oooo 


ooniso 


OOOO 




oooo 




oooto 


OOOiK.60 


oooo 




,0000 




'oooo 


00ni90 


oooo 




oooo 


OOHTlO 


oooo 


OO0720 


oooo 


99<5q98 


0505 




0001 



02 FILLER 

02 COL-HEAOING-I 

02 FILLER 

02 .C0L-Hl*0ll^G-2 • 

02 FILLER 

02 €0U->H€AdlN(3r3 
- 02 FILLER 
PRCCE0UR€' DIVISION, 
/BEGIN/PROG SECTION 0. 

START, OPEN INPUT IN-FlLEt OUTPUT DUT-FlLE, 
HEADIN5&. 

1 DISPLAY HEAOIt^S. 

coUheadings. 

- display c0l-meadin6s. 

«E-ADi . ' 

READ IN-FILE At END GO TO EDJ. 
, MOVE SPACES TO OUT-DATA-RECORQ, 
MOVE NELLA-NO-IN TO. NELLA-NO-OUT. 
MOVE ILMO-NO-IN TO IL^' )-NO-DUT, 
MOVE JAY-ND-IN TO 4.AY-NO-0UT. 
WRITE OUT-OATA-RECORO. 
GO TO RE-AO. 

EOJ, 

CLSSE IN-FILE* OUT-FILE, 

STOP {JOBS. 
BEGIN/'PPOG/AT /BEislN/PROG 
END COBOL 



PlCTOlfF X<27r VALUE SPACES- 
PICTURF XC5} VALUE SNElLA:. 
PICTURF XI321' VALUE SPAClS. 
PiCTURf X{4) VALUE SILMOS. 
PiCTiiRE Xi 26} VALUE SPACES.^ 
PICTURF X<3) VALUE :jAYS, > 
PICTURE XC23J VALUE SPACES, 



rU¥2 

TEAM2 

TEAM2 

TEAM2 

TEAMZ 

TEAMS ~ 

TEAM2 

TEAK2 

tEAN2 
fEAM2 
.TEAM 
fEAMT 
TEAt'Z 
TEAW2 
tEAM2 
TEAf2 
TEAfS 
TEAH2 
TEAM2 
TEAKZ 
TEAM2 
TEAM2 
TEAM2 
TEAy2 



Oa^ LOC . 

004341 
O04346 
004406 
'-004412 
004444 
00444t 
004476 



CCMPXi^ls* Cnsa.F OJ.O EXTERNAU IDENTlFlCATiONs AVE«Y£ RUN f40j •, ^ Hl-N DATE: 07/2 B/t' 



ADORFSSfS nr SUBROUTINES I NCLUOgO IN OfeJECT PHOGRAM. 

'"'FUNCTION s . " . * 



ADORESS NAMp 



006«S6 

00&6^b 

007177 

00730<i* 

01O317 

010771 

011137 

01133^ 

012073 

0l?75l 

Ol67?7" 

0153*»5 

QI60<;3 

016676 

017342 

OZOISO 

0207^7 

0210?7 

622300 

02 34<»3. 



EXITi 
OPCLRT 

dspprt 

0FL6Y 

TAPERP 

PERERP 

TAPEnr 

START 

OPENFo" 

TPOPFJU 

TBEGl P 

TLBCwif 

PRIM-fn 

CAROhe 

CLQSFb 

TPCLRi 

TENOl r 

TPCL«i9 

FlLETli 

FILEl i 

ST09>TT 



1/0 ViORK AREA* * 
OPEN-CLtiSE ^CONTROL, 
DISPLAY FXECUTfCN* 
DYNAMIC CHANNEL ^SSISN^^ENT. 
DEVICE SUSY DELAY. 
TAPE ERROR HANDLING, - 
PERIPHERAL ERROR HAND|.IflQ, 
gNO-0F*TAPE CONTROL. 
START ANR SCRAP CONTROL, 
.GENERAL OP%N,ALL FILES. 
GENERAL OPEN, TAPE FILES. 
TAPE FILF BEGIN LABEL WRITE. 
TAPE FILF LABEL CHEC<. 
GENERAL OPEN, PRINT FiLfcS.. 
GENERAL OPEN, CARD" READ FiLfcS. 
GENERAL CLOSE • ALL FjLEb, 
TAPE FILE BUFFER CLOSE. 
TAPE FILF END LABEL w'PlTE. 
TAPE REEL SWAP. 
INITTALI7ATI0N, 
DEVICE REASSIGNMENT, 
DEVICE REASSIGNMENT, 
SCRAPPING HALTS. 



V 



• ■ ' 121 ■ 



• CCMPILER" COBOL F 01. 0 EXTERNAL IDENTIFICATIONS Avi^Y^ 
C-fNERAL INFftRMATION ON OBJECT FILES. ' . 



RUN NO: 



RUN date: 07/2B/70 



PAGES 004 



FILE TABLE ftiiPR. ' BUFFcR ADDRESSES -WECORD ADDR. - TYPE 

NO.'^'.AODR. ACiOR. LEFT RI6HT LEFT RIGHT LEFT RIGHT 



DEVICES • 
1ST 2ND 



1 0242.14 0?435fW 004500* 004617 

2 021^440' 0?4,574 004T43 005132 

JENKlNS-MftSON-TlMS 



004^21 00474O , A CARn IN 41 
005134 005323 A Pf^lfir 02.. 

CASE study" "5 



0 
0 



IDENT. DATE M-F-T .SiA.P, 
ADOR, ADOR. CONTROLS SUBR. 



COBOL 



NELLA 



ILMO 



JAY 



■i - 



203 
053 
570 
602 
779 
012 
112 
889 
852 
234 
756" 



3042 
3720 
9<>3& 
8026 
0328 
3456 
5533 
4452 
4561 
S542 
8236 



5794 

2468 

763^ 

6401 ' 

9820 

5678 

4400 

iOU 

7502* 

3568 

5069 




ERIC 



] 
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123 



H-200 COBOL F CnMPlLATTnl4 RFCoRD 



OATrj 07/30/70 



/ 



FXtfRNAI IDFNTlPICATlnNs BARAJA RUN NQ; ^ 
OE.JFtT PROGRAM VISIBILITY; VISIBLE TO ALL. 
' COMPILER version: 01. 0 VISIBILITY: L SOURCE' PROG, AND LIBR. TAPe'nAVEJ UNUSfD 

nBJprT TTME MEMOR.Y REQUIREMENT IS 026640 {Q116B0 DECIMAL) THARACTERSi 

■ ) ■ 



MSPL^ ! 



0 )crRA CREDir 



\9A 



ERIC 



B|ASS 



COBOL 




SEO NO 


418 NO 




oooo 




Oooo 


oohn^o 


Oooo 




oooo , 


boSnso 


Oooo 




oooo 


OOnnTD 


oooo 


oonnso 


oooo 


OOnn^O 


- oooo 


cnnioo 


' Oooo 


oont 10 


oooo 




Oooo 



EXTERNAL IDENTIFICATION* BARAJA 

COSOL^'^OUftCEiLANfiliAfiE STATEMENT 



^ RUfl NO! 



RUN BATE; 07/30/70 



PAGE: 001 

Oaj LOC 



OBSERVES THTJi FILE-NAME 

QOni^iO oooo. 
DBSERVE: THTR 'FILE-NAMF 



IDEf^iTlFlCATlON OIVtSION. 
PRnGRAH-ID. EX-CREOIT. ' 
AUTHOR, TEAM7-V/ICTOR-8ARAJAS, 
ENVIRONMENT DIVISION. » 
COnFIGUPATTON SECTION. 
SOURCE-COMPUTER. H.-.200-SPEC1AL. 

OBjECTlCOHPUTER* H-200« SUPERVISOR, NO SEGMENT ATION. 
SPECIAL-NAMES. , . 

PASE IS NEXT-PAGE. '. 
INPUT-OUTPUT SECTION. 
FIlE-CONTRoL. 

SELECT IN-FILE ASSIGN TO CARO-RFADRR E. 
■I 

IS RFPR£SENTE;D in object time PRINTOUTS AS "FILE I". 

SELECT OUT-FILE ASSIGN TO PRINTFR R« 
IS REPRESfNTFd IH OBJECT TIME PRINTOUTS AS "FILE 2*. . 



125 



ERIC 







i-n- 


CONTROL • 










^ W w W 




APPLY 'H-200-SPECIAL ON IN 


-FILE. . 








oooo 


DATA 


DIVISION. 










oooo 


FILE 


SECTION. 












FD 


IN-FILF 








Of^n ^ on 


V/ W w w 


LABEL REC0PD5 fBE STANDARD 












^ .VALUE 3F IDENTIFICATION IS I 








oqS^ 1 0 


oooo 


DATA 


RECORDS IS EHP-I^EC. 










oooo 


01 


EMP-REC. 










oooo 




02 lONO 


PICTURF 








oooo 




02 INNAME. 








oon:?50 


oooo 




03 INLA5T 


PlCTtJRF 


AC15). ^ 






oooo 




03 INFIRST 


PICTURP 


AC9). • 




00077C 


' oooo 




03 IHMT 


PICTURF 


Afl). 




000780 


oooo 




02 INSSNO* 








0007^0 


oooo 




03 ONE 


PiCTSiRF 


999. 




OOP^OO 


Oooo 




V 03 Two 


PIfTllRF 


99, 




OOO-ai 0 


Oooo 

OOOO ■ 




03 THREE 
02 IfioCOD?^ 


PlCTllRr 
PICTIIRF 


9999* 
99, 




000*^30 


Oooo 




02 FILLER 


PICTiiRF 


X(g) . 




00O'^40 


OOOO 




02 INPARATE ' 


PICTIIRF 


99V999. 






oooo 




02 FILLER 


PICTiiRF 








Oooo 




02 IMDEPT 


PICTURF 


99. 




oon^7C 


Oooo 




02 FILLER 


PICTiiRF 


X(20U . 




OOn^fiO 


noon 


FO 


OUT-FIiE 








OOn^QC 


oooo 


LABEL RECORDS ARE STAf4f5ARD 








nno^*nc 


.0000 


VALUE OF irfENTIFjCATION IS : 


* 






ocn^ic 


oooo 




DATA RFCOROS IS OUT-REf. 








ooo^po 


QOOO 


. 01 


OUT-REC 


PICTIiRF>X(120) . 




000430 


ODOn 


WORKlNG-f^TORAGE SECTION. 








oon^AO 


oooo 


77 


qOjNTER 


PICTURF 


99. 




000<>5C 


OOOO 


01 


PRlNT-LlNE-1. 








ooo^^^o 


OOOO 




02 FILLER 


PICTURF 


XXXXXX ^VALUE 


SPACES. 


0DO470 


oooo 




02 ID-OUT 


PICTURF 


99999. 




000480 


OOOO 




02 FILLER 


PICTURF 


XXXXX VALUE 


SPACES. 



TEAM? 
. TEAM? 
TEAM? . 
TEAM? 
TfAMT 
TEAM?. 
TEAM? 
TEAMT 
TEAM? 
TEAM? 
■ TEAM? 
TEAM? 

I 3. 

■ , «. 

TEAM? ■ 

'» 13 

TEAM? 
qrfAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 

TEAM?^., ; 

^ TEAM? 
, TEAM? 

,tt€am? 

TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 



oooioi 



>000iQ2 



00^607 
00^^640 
004626 
004637 
004640 
0046S1 
00464^ 
004645 
004651 
004653 
00411 3 
004670 
004674 
P04676 
004722 



005305 

00412P 
004270 
004126 
004133 
00<»140 



EXTERNAL ICENTlFlCATlQf45 BARAJA RUM ^40: 



RUN date: ■ 07/30/70 



L2 



KIC 





Lift ' M3 1 




W W w W 


W V i » T M Wf 


0000 




oood 




Onoo 




Oooo 




•Ooon 










n h R 7 0 


0000 


I ♦ i f ^ /« V 


Oooo 




DOOO 




oooo 




oooo 




oooo 




y Oooo 




oooo ' 




oooo 


' ' » » M ^ rj V/ 


oooo 


ooni^f 0 


oooo 




oooo 




oooo 




oooo * 


■ nor\y i n 


* onoo 


non? 1 9 


050*5 


• r. n ft 7 ? c 


ooon 


onr7 ^0 


oooo 




Oooo 




oooo 




oooo 




oooo 




Oooo 




oooo 


» f " , 1 1 V w 


OOOO 


nn n fi 1 n ■ 


oooo 


n n ft 5 0 


Oooo 


0 nri a ^ 0 


oooo 


0 f) 0 R 0 


oooo / 




ooon 


non ft iLO 


Oooo 


OOO ft 70 


onoo 


OOn R rC 


ooon 




Oooo 


U 1 / t 1 M V.' w 


oooo 


OOn Q ^ 0 


onoo 




onoo 








OOOO 




oooo 




onoo 




0505 




0001 







COSCL SJU«CE LANGUAGE STATEMENT^ 



0'2 



02 



02 



03 



.03 



03 
03 
03 
03 

PI! 



01 



SSOUT*. 
P3 SSONE 

HYP-2 

LER 
OUT-NAME, 

03 OUTFIf^ST 
03 FILCE^ 
03 OUTMI 
PERIOO 
03 FILLER 
0UTLA5T 
LInE.2« 



PICTllRF 
PICTIJRF 
PICTiiRF 
PICTURF- 
PICTURF 

PICTilRF 
PICTURF 
PICTliRF 
PICTURF 
PICTilRF 



999* 
%. 

9999. 



VALUE SPACES. 



A(9)« 
X VALUE 
A. 
X. 

X VALUE 



SPACES. 



PirtuRS X459) 



SPACES* 



PiriUPE XXXXXX VALUE SPACFS* 
PICTiiRF 99. 

XCS) VALUE SPACES. 
99. 

XU^) VAtUE SPACES. 
22.999* 

XCB2) VALUE SPACES. 



PICTUPF 
PICTIJRF 
PICTiiRF 
PICTlJRF 
PICTiiRF 



OUTPUT nUT-FlLE» 
GO ID WPA^^UP* 



PRIflT. 
02 FILLER 
"02 OUTOCDDE 
02 FILLER 
02 OUTDEPT 
02 FILLER 
02 OUTPARATE 
" 02 FILLER 
PRCCEDJRE DlVlblU^. ^ 
/BFGTN/P??Q& 5£CTI0*>^ 0. 
HSKPG. OPm INPUT IN-FILE.' 
PAR,3» RtAD IS-FIlE AT BH^ 
MOVE SPACES TO OUT-REC. 
MOVE lONO TQ ID-OUT. 
MOVF DHE TO Si>0NE. 
MOVE Two TO S5TW0. 
MOVE THREE TO SSTHREE* V ' 
MOVE TO HYP-U HYP-2. 

^OVE InFIRST *T0 0UTFIR5T. 

MOVE iNiM! TO OUTMl. ' * 

MOVE TO PERIOD. 

MOVE INLA5T TO OUYl AST. 
MOVE PRlNT-LlNE-1 TO OUT-^EC. 
■ Apr^ 1 TQ COUNTfR. 

IF COUNTEi rTS ^ATE R^THAN 6 y>^RnrF QiiT^ R^C AFTgR AQVANCTNG 
liExT-PAGEt HOVE ZER0X3''Tb^T5uNtFR_ _ 
,ELS E WRITE OUT-.REr AFTER ADV ANCTMG 3 . 
INOcODE TO "DUnSCOOE."' 
ImDEPT to OUTDEPT. 

InPaRATE to OUTPAt^ATE. , . 

PR2NT-LIUE-2 TO OJT-REC. 
DUT-REC AFTER ADVANCING,.!. 
PAR*2. * 
CLOSE iN-FILf t OUT-FILE. 

/BEC2!N/PR0G 



MOVE 
MOVE 
MOVE 
MOVE 
WRITE 
GO TO 
wRaP-JP. 

STOP 
BEGIN/PPOG/AT 



ENO COE^CL 



Pace: 002 33 
CBJ UOC 



TEA>'7 

TEAM? 

TEAM7 

TEAM? 

TEAM? 

TEAM? 
»'TFAM? 
^EAM? 

TEAM? 

t€AM? 

TEAM? 

TEAM? 

TEAM? 

TEAM? 

TEAM? 

t.EAM? 

TEAM? 

TEAM? 

TEAM? 

TEAM? 

TEAM? 

TEAM? 

TEAM? 

TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
.TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 
TEAM? 



00<»l53 
004;i<.3 

00*147 
00*153 
00*160 
00*270 
00*171 
00*174 
00*173 
00*i7* 
00*175 
00*270 
00**60 
00*276 
00*300 
00*3>10 
00*312 
00*330 
00*336 
00**60 



7/3.1/7 ii' 
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J 



COMPTiFj?. CnROU F JSy^t £XTEt?NAL IDENTIFICATION* 8ARAJA 

' . ■ ■ :• ■ — 

AOh»PSSF? OF SUBROUTINE*; INCLUDED IH OBJECT PROQUAH. 

ADDRESS NAMF FUNCtIoN 

J)0i5iP EXTTr . T/0 WORK AREA, . 

?%Oft?^i OPCLRT -open-Close CONTROL. 

00<k4^^ OSPPCT DISPLAY FXCCUTTON. 

ASTGN^ DYNAMIC CHANNEC AfSiGNMENT. 

007174 DFLAY DEVICE BUSY DELAY. 

0073n! CL8TST CARD' Ftl^P END LABEL TEST ING. 

0074%0 LABT«1T TAPf FILF FNO LABEL TEST TNG. 

010U6 TAPEPB TAPE ERRnfi HANDLING, 

011201 PEPERo PERIPHERAL ERROR HANDLING. 

0116«53 TA^EOT FNO-OF-TAPE CONTROL, 

01?0?1 START START ANfi SCRAP CONTROL, 

, 01?21A OPENFR GENERAL* OPEN»ALL FILES, 

Ol?7«;S TPQPFW GENERAL OPEN* TAPE FILES. 

OllA^^ TfiEGl'R TAPE . FILF iBEGIN LABEL WRTTE* 

0I474A TlBCHif TAPE FILF LABEL CHEC<. 

o'lSftU PRINTft GENERAL OPEN, PRINT FILES, 

0ijk247 CARDnP . GFNERAL OPEN, CARD READ FILES. 

01>.7^5 CIBCHK *CAR0 FILF LABEL CHEC<, 

0173?* CI OSFB general ClOSEt ALL FILES. 

02fJiM* TPCL«;i TAPE FTLF BUFFER CLOSE, 

02061 "5 TFNOU TAPE FILF FND LABEL i^RITE. 

0214?3 TPCLS? TAPE I^EEl SWAP. 

,0222^2 FTLFni TNITl AL!7ATI0N. 

027302 FTLF11 DEVICE RFASSlSNfifFNT. 

0235*;^ F!LF71 P^EVICE SfFASSIGNMFNT, 

0247 STOPTT SCRAPPING^ HALTS, ' 



RUN no: 



RUN DATE! 07/30/70 



V 



1 9^ 

^ ;W ^ 



CCMPtLFRs CnianL F QUO EX?ER|iAL ibtNtlVfCATlONs SARAjA RUN ^iOj ^ RUN DATE! 07/3Cr/70 ♦ 

/ GENFRAL INFCRMATfCN ON OBJECT ^TLES. 



PAGEt 004 



FILE table' «HieP- SUFFpR AODFESSF*^ - . R£CpRP ADDR. TYPE 

NO.. AOCfi. Af>DR. LEFT RIGHT LFFT RTGHT LEFT 'RIGHT 



DEVICES L lOENT. DATF M-F-T S-A.P, 
1ST 2ND ADDR. ADDR. CONTROLS SUBR. 



1 0?5fef 7 OJBfcZ'* . 00<»462 004601 

• 



004722 A CARD IN ^1 
005116 005305 A PRlMT 02 



S 005523 000222 
S 00552B 000222 



5Q^fi4 • 95fi-72-55^6 FaYF 
11 06 6.575 



A. heisler 



1 1 



1 1 



95R-72-5556 
C6 



95^-72-5556 
06 



FaYE 
6.*^75 



fayf 

6.575 



A. HilSLER 



A. hEISLER 



nOOQ9 , ?15*.29-7712 
1 ^ 06 



VlRGI'ilA M. 'HAYTER. 
6*575 



00099 215-29-7712 

1 ^ 06 



VIRGIfilA M. HAYTER 
6.575 



00099 P15-29-7712 



VIRGINIA M. HAYTfcR 
6.575 



nnino 534-b5-6^P4 robfrt 

09 06 " '6.575 



A. HICKMAN 



r\a^OO 534-85-63P4 ROBPf^T 

09 , 06 6.575 



A. Hi CkMAN 



130 



ERIC 



ERIC 



nOIOQ 934.a5-6324 ROBERT 

fl9 06 6«97$ 



A. HICKMAN 



AOOOO 190-52-4287 IRVTN V. HiLLYER 

fl6 t)A 6.575 



190-52-4287 
06 



IRVIN 
6.575 



V, HlLt,Y£R 



190-52-4287 

06 



IRVIN V. HILUYER 

6.575 



#iOO00 
06 



199-52-4287 
06 • 



IRVrN V. HitLYER 

6.575 



7onoo 

07 



251-51-9801 
06 



FRED ' E. WERNOON 
6.575 



7OOQ0 
ft7 



251-51-9801 
06 



FRED 
6.575 



E, tiERNDON 



7OO00 
07 



25.1-51-9801 
06 ' 



FREn 
6.575 



£. HERNDD^ 



«nnOO lOR-87-3747 
06 06 



MARtETTA J. MITE 
6.575 
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06 



MARtETTA J, HITE 



MARtETTA J» HiTt 



10007 52^-71-1603 
in 06 



6^575 



1 no.d7 
♦in 



10007 
10 



52?-7l-l603 
06 



52?-71-1603 
06 



RUBV 
6t^75 



I. hlberer 



RUBY U HtBERE 

6.'575 



1 onoo 
in 



ili-^il-ilii 

01 



MAPV 
2«SO0 



G. GRAVES 



10000 
10 



lll-ll-llll 

01 



MARy 
2.500 



GRAVES 



lonoo . ui-il-ini 

FND PRTQB FTIJ^ ^01 



MARY G. GRAVES 

2*^00 



132 



